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HI, AND WELCOME to this bumper 
book of programs. Your Computer 
began publishing readers’ programs in 
a special feature, called Pocket 
Programs, back in December 1982. 
They have been incredibly popular 
with our readers ever since and now 
appear every second month. 

Happily, the supply of programs 
has outstripped our demand, which 
means we have a never-ending stock 
of good-quality programs to offer 
other readers. Recently, however, we 
have been embarrassed by the 
backlog. Programs were coming in 
much faster than we could print them 
and we were beginning to get buried 
under a growing pile of listings and 
documentation. 

The solution was obvious: let’s get 
all the programs together and publish 
the lot in one big collection. The 
contributors get to see their programs 
in print, you get a whole swag of 
programs to try out on your computer 
and we get to see what our desks 
look like. 

Anyway, here they are: programs 
for the beginner through to the 
advanced; technical programs and 
games programs; programs from kids 
aged ten up to adults aged seventy. 
Programs in a variety of languages 
for all the popular machines and the 
more obscure ones as well. You will 
find lots of programs to use on your 
computer straightaway, and lots more 
that you can adapt from other 
computers and languages. 

You will see we have divided the 
programs according to the machine 
they’re written for: Apple, Commodore, 
Sinclair and so on. Don’t restrict 
yourself just to looking at the brand 
you own. Many of the other machines’ 
programs can easily be changed to 
run on different computers, and there 
are notes in some to suggest how 
you might go about doing this. In the 
miscellaneous section there are 
programs you can check out that are 
written more for a particular language 


than a particular machine. 

There are also a few tricks to 
typing in the program that might be 
useful. Here are some hints I have 
found useful. 

First, place a ruler under the line 
you are typing to mark your place. 
You don’t want to start typing the 
wrong line midway through another, 
or leave a couple out. The results 
can be catastrophic, almost as 
confusing as that last sentence. 

Next, check the data in data 
statements very carefully. When you 
type in normal commands and make 
a mistake it is usually pretty obvious. 
For example: 

IB A>0 THEN ABORT 
is a lot easier to correct than, say: 
1000 DATA 143,233,233,087,323 

One check you can make is to 
count how many numbers you should 
have typed in and how many you 
have typed in. You can also get 
someone to help you by reading the 
data to you while you type it in. If 
nothing else it makes for a more 
social occasion and makes your 
husband or wife, mother or father, 
feel wanted. 

When you have typed in a program 
it may return an error. When you 
discover the line causing the error 
don’t just check it and think “That 
looks OK”. The best thing to do is 
read the line backwards, letter for 
letter and check each letter, number 
or control code against what you 
have typed in. That way you don’t 
assume that everything is correct as 
you quickly flick your eye over the 
line. You plod through and verify 
every single character. 

If you’re still having trouble finding 
an error, another trick is to put a 
trace on the execution to follow the 
path the program takes. If your 
program loops uncontrollably you can 
use a command (TRON in many 
BASICs) which will show you the line 









numbers as they are being executed. solution is to get a second opinion. 
Another thing you can do if you don’t Another programmer used to get his 
want to trace through the whole kids to check his syntax when he ran 

program is to sprinkle PRINT state- into an error. They didn’t know a 

ments throughout or in selected thing about computers, but if he 

locations. These can tell you all sorts explained the way syntax worked they 

of things about the execution. They could pick up the obvious mistakes 

can just say, “Hi, I’m at line 100 and which he had looked at for hours 
everything is fine!”, or they can tell without noticing, 
you the value of the variable that Also, you should consider joining a 

seems to be causing the crash: “The computing club. You will certainly 
value of C is 20.” meet lots of people who will gladly 

With these few debugging tools, take a look at a listing and point out 
hopefully you should be able to work any bugs that might be causing 

out about 99 per cent of the problems trouble. A full listing of clubs in 

you may face. Of course, there is Australia and New Zealand is printed 
always that worst of bugs, the in this book, and we update it from 

invisible, undetectable bug. These time to time in Your Computer. 

little monsters will have you tearing If you still can’t find the bug after 

your hair out, glaring at your screen trying all these avenues it is time to 

until three in the morning and in spite despair, sell your computer and buy 

of your best efforts will never make a sailboard with the proceeds, 

themselves apparent. Often such Hopefully, having tried some of the 

bugs will cause you to despair, sell programs in this magazine you will 
your computer and go on a skiing be inspired to write some programs 
holiday to Europe with the proceeds. of your own that you would like to 

It happens to every programmer submit to us for publication. Please 

from rank beginner to seasoned feel free to do so. The programs we 

professional. For example, one of my like best are ones that have some 

computing lecturers was frowning at a creativity about them. Say, a new 
listing a student had brought to her way of performing an old routine, or 

for some help. Another student a game that has not been put on a 

noticed the frown and offered assist- computer before, or a useful routine 

ance. that works faster than any that are 

“The bug must be in this line,” around at the moment, 

said the lecturer, “but I’ve been If you are a rank beginner don’t 

looking at the rotten thing for two think there are no programs you can 

hours and there is nothing wrong with send in. There are plenty of other 

it. We’ve looked at everything; rank beginners out there who will 

whatever it is must be pretty weird to probably find that your programs are 

cause an error.” “Let’s have a just at the level they can understand, 

peep then,” chirps the helpful student. So, send those programs rolling in. 

“Ah yes, that comma should come We hope you have lots of fun with 

before the variable, not after.” the programs in this magazine. There 

It had taken him three seconds to is something for everyone. And, as 
find the bug. It is times like that my desk diary for today says, “You 

when quite talented people can get should try everything once, except 
turned onto the alternative lifestyle, incest and folk dancing”, which I’ll 

but please don’t despair. Sometimes admit is a trifle weird, but it’s not a 

things can be extremely complicated bad approach to trying out the pro- 
with computers, but far more often grams! 

they are extremely simple. The Enjoy and Keep On Computing! ■ 
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There’s a whole world of ‘action’ on the 
bands between 30 MHz and 500 MHz . No 
matter whether you’re interested in 
VHF/UHF DX, or just the local ‘chatter’, a 
scanner will put you ‘in touch ’ with that 
world of action. 


Australian SCANNER’S WORLD is the book that will 
introduce you to that other world ‘beyond the 
shortwaves’. It contains an introduction to scanning and 
scanners, an article on scanner antennas — including 
how to build two types for yourself, along with how to 

- erect antennas. The major part of this book 

sms is the “Listener’s Guide”, computer — sorted 
I listings of services throughout Australia and 

New Zealand, with their frequencies listed in 
both frequency order and alphabetical order 
by service. Beacons are listed also, along with 
relevant overseas ones. A roundup of 
scanners, antennas and accessories is also 
included. 


FIND OUT WHERE 
THE ACTION IS! 


Australian SCANNER’S 
WORLD $5.95 

at your newsagent 

















HIOGGER 


Frogger is a two part program, 
connected by the CHAIN pro¬ 
gram on the DOS 3.3 SYSTEM 
MASTER. The listing REM 
FROGGER should be saved 
under the name of "FROG¬ 
GER”, and the other under 
"FROGGER@”. A copy of 


O REM < < < FROGGER > > > 

1 DS = 2 

5 GOSUB 3000 

6 ROT = 0: SCALE= l: HCOLOR= 3 

7 J = J + 1 

8 FB = 130:FC = 140 

io si = io:s 2 = 20:S 3 = s:s 4 = 12 
20 FB = 130:FC = 140 
30 D$ = CHR* (4) 

40 GOSUB 20000 

50 POKE 232,0: POKE 233,64 

60 ab = 9o:ac = 200:ad = 6o:ae = 13o:af = 21o:ag = 5o:ah = 21o:ai = 40 

70 SI = SI + JSS2 = S2 + JJS3 = S3 + J:s4 = S4 + J 

75 GOTO 350 
80 POKE - 16368,0 
85 YF = FCIXF = FB 

90 IF X = 218 THEN FD = FD - 1 I IF FD < 0 THEN FD = 0 
95 IF X = 218 THEN 140 

100 IF X = 193 THEN FD = FD + 1: IF FD = 5 THEN 10000 

105 IF X = 193 THEN 140 

110 IF X = 203 THEN FB = FB + 20! IF FB > 250 THEN FB = 250 

115 IF X = 203 THEN 140 

120 IF X = 202 THEN FB = FB - 20: IF FB < 30 THEN FB = 30 

125 IF X = 202 THEN 140 

130 RETURN 

140 IF FD = 0 THEN FC = 140 

150 IF FD = 1 THEN FC = 112 

160 IF FD = 2 THEN FC = 85 

170 IF FD = 3 THEN FC = 59 

180 IF FD = 4 THEN FC = 31 

190 POT = 0: SCALE= 1 

192 HCOLOR= 4 

195 DRAW 1 AT XF,YF 

200 HCOLOR= 1 

210 DRAW 1 AT FB,FC 

715 SC = SC + 10 

220 POKE - 16368,0 

230 IF FD = O THEN RETURN 

240 IF FD = 1 THEN FI = AB:F2 = AC 

250 IF FD = 2 THEN FI -= ADIF2 = AD 

260 IF FD = 3 THEN FI = AF:F2 = AG 

270 IF FD = 4 THEN FI = AH:F2 = AI 


280 

IF FB > FI - 

27 AND 

FB < 

FI 

+ 27 

THEN 

330 

290 

IF FB > F2 - 

27 AND 

FB < 

F2 

+ 27 

THEN 

330 

300 

RETURN 







330 

GOSUB 2000 







335 

FB = 130:FC = 

140 






3 40 

GOTO 350 








350 FD = 0 
360 HGR 

370 ROT = 0: SCALE= 1 

380 HCOLOR= 4: DRAW 2 AT AB,110: DRAW *2 AT AC,110 
390 AB = AB + Si:AC = AC + Si: IF AB > 279 THEN AB = 0 
400 IF AC > 279 THEN AC = O 

410 HC0LOR= 7: DRAW 2 AT AB,110: DRAW 2 AT AC,110 
412 IF FD = 1 THEN GOSUB 230 

415 X =. PEEK ( - 16384): IF X > 127 THEN GOSUB 30 

i*po Mrm np= a ■ pht= ppauj z at ad, 96: RQT= n 


CHAIN is expected to be pre¬ 
sent on the disk when FROG¬ 
GER is run. 

To guide the frog: 

A - up, J - left, K - right, Z 
- down. 

M.J. Smith 
Waramanga ACT 


430 AD = AD - S2: IF AD < 0 THEN AD = 279 

440 HC0LOR= 7: R0T= 32: DRAW 2 AT AD, 96*. R0T= 0 

442 IF FD - 2 THEN GCSUB 230 

445 X = PEEK : - 16384): IF X > 127 THEN GOSUB 80 

450 HCOLOR= 4: DRAW 2 AT AF,57: DRAW 2 AT AG,57 

460 AF = AF + S3:AG = AG + S3: IF AF > 279 THEN AF = 0 
470 IF AG > 279 THEN AG = O 

480 HCOLOR= 7: DRAW 2 AT AF,57: DRAW 2 AT AG,57 
482 IF FD = 3 THEN GOSUB 230 

485 X = PEEK < - 16384): IF X > 127 THEN GOSUB 80 

490 HCOL0R= 4: ROT= 32: DRAW 2 AT AH,43: DRAW 2 AT AI,43 

495 AH = AH - S4:AI = AI - S4: IF AH < O THEN AH = 279 
500 IF AI < 0 THEN AI = 279 

510 HCOLOR= 7: RGT= 32: DRAW 2 AT AH,43: DRAW 2 AT AI,43 

530 HCOL0R= l: ROT = FE: SCALE= 1 

532 IF FD = 4 THEN GOSUB 230 
540 DRAW 1 AT FB,FC 

550 X = PEEK i - 16384): IF X > 127 THEN GOSUB 30 

560 POKE - 16368,0 

570 GOTO 370 

2000 TEXT : HOME 

2005 RESTORE 

2010 VTAB 10 

2020 PRINT " SSSSS PPPPPP LL AAAAA TTTTTTT" 

2030 PRINT " SSSSSSS PPPPPPP LL AAAAAAA TTTTTTT" 

2040 PRINT " SSS SS PP PP LL AA AA TTT" 

2050 PRINT " SSS PP PP LL AA AA TTT" 

2060 PRINT " SSSSSS PPPPPPP LL AAAAAAA TTT" 

2070 PRINT " SSSSSS PPPPPP LL AAAAAAA TTT" 

2080 PRINT « SSS PPP LLLLLL AA AA TTT" 

2090 PRINT " SSSSSSS PPP LLLLLL AA AA TTT" 

2100 PRINT " SSSSS PPP LLLLLL AA AA TTT" 

2110 FOR I = 1 TO 2 

2112 FOR II = 1 TO 25: READ DD: POKE 0,DD: CALL 768: NEXT 
2114 RESTORE : NEXT 

2120 LL = LL + l: IF LL > 3 THEN 5000 
2130 RETURN 
5000 TEXT : HOME 

5020 PRINT : PRINT : PRINT " BAD LUCK!" 

5030 PRINT : PRINT " YOURE SCORE WAS ";SC 

5040 IF SC > 5000 THEN PRINT " NOT A BAD SCORE" 

5050 FOR I = 1 TO 25: READ DD: NEXT 

5055 FOR I = 255 TO 1 STEP - 3: POKE 0,1: CALL 768: NEXT 

5060 DATA 250,250,250,250,250,200,200,200,150,150,150,100,100,50,0,0,0,0,200,20 
0,0,0,0,200,200 
5100 END 

8000 POKE 768,169: POKE 769,4: POKE 770,133: POKE 771,1: POKE 772,234: POKE 773 
,234: POKE 774,234: POKE 775,173: POKE 776,48: 

8001 POKE 777,192: POKE 778,136: POKE 779,208: POKE 780,4: POKE 781,198: POKE 7 
82,l: POKE 733,240: POKE 784,3: POKE 735,202: 

3002 POKE 786,208: POKE 787,246: POKE 788,166: POKE 789,0: POKE 790,76: POKE 79 
1,7: POKE 792,3: POKE 793,96: POKE 794,208: 

8010 RETURN 

10000 HCOLOR= 4: DRAW 1 AT FB,FC 

10002 HCOLOR= l: DRAW 1 AT FB,9 

10005 PRINT CHR$ <4);"BL0AD CHAIN,A520" 

10010 CALL 520"FR0GGER2" 


19000 REM DATA FOR SHAPES 

20000 DATA 2,0,6,0,40,0,63,54,63,36,60,54,54,46,53,54,63,54,54,37,44,45,45,45 

,53,46,36,36,63 

20005 DATA 36,44,37,36,36,55,54,63,36,63,0,63,63,39,36,63,63,63,55,54,63,63,5 

4,54,54,54,54,54,54 

20010 DATA 45,45,54,46,45,45,45,36,44,45,45,45,45,45,54,46,45,45,45,36,44,45, 

36,37,44,36,37,60,36 

20015 DATA 39,60,36,63,39,36,63,63,63,55,54,63,63,63,0,0,0,0,0 


20018 FOR I = 1 TO 25: READ D: NEXT 

20020 FOR LOC = 16384 TO 16485! READ PP: POKE LOC,PP: NEXT LOG 


> 


20030 RETURN 



REM <<<FR0GGER2J>> 

IF DS - 0 THEN 10000 


HUMBER 


O 
1 

S G0SUB 8000 

I j . J ♦ 1! IF J > 10 THEN 3 = 10 
to si = 7 :S 2 = - 23:33 = 5:S4 = - 10 
20 FB = 1301FC = 140!SF - 0 

70 D* = CHR* (4! 

40 PRINT D*?"BLOAB FR0GGA2.SHP 

fo r=%o:Ac°i "oiA^’^AE = 17 o:af = i 5 o:ag = io:ah = 4o:ai = iso 

70 SI = SI + J-.S2 = S2 - J:S3 - S3 *3 
75 GOTO 350 
80 POKE - 16368,0 

35 YF = FCIXF = FB 
90 IF X = 218 THEN FD = FD - 
IF X = 218 THEN 140 


I! IF FD < 0 THEN FD - 0 


95 
100 
105 
110 
115 

i 20 

125 

130 

140 

150 

160 

170 

180 

190 

192 

195 

200 

210 

215 

220 

230 

240 

250 

260 

270 

280 

290 

300 

330 


= 193 THEN FD = FD + 

= 193 THEN 140 

= 203 THEN FB = FB + 

= 203 THEN 140 

= 202 + HEN FB = FB - 

= 202 THEN 140 


IF X 
IF X 
IF X 
IF X 
IF X 
IF X 
RETURN 
IF FD = O 
IF FD = 1 
IF FD = 2 
IF FD = 3 
IF FD = 4 

rot= o: scale= 

HCOL0R= 4 
DRAW 1 AT XF,YF 
HCOLOR= 1 
DRAW 1 AT FB,FC 
SC = SC + 10 


IS IF FD = 5 THEN 7000 

20: IF FB > 250 THEN FB = 250 

20: IF FB < 30 THEN FB = 30 


THEN FC 
THEN FC 
THEN FC 
THEN FC 
THEN FC 
1 


140:SF = o 
112 5 SF = Si 


85: SF 
59:SF 
3i:SF 


52 

53 

54 


FI 

F2 


POKE 
IF FD 
IF FD 
IF FD 
IF FD 
IF FD 
IF FB 
IF FB 
REM 

GOSUB 2000 
335 FB = 130:FC 
340 GOTO 350 

350 FD = O 

351 HGR : 

352 IF HI 
IF H2 
IF H3 
IF H4 
IF H5 
HCOLOR= 


16368,0 

O THEN RETURN 

1 THEN FI = ABIF2 

2 THEN FI = AD:F2 

3 THEN FI = AF:F2 


= 4 THEN FI = AH 
20 AND FB 
20 AND FB 


F2 

< 

< 


AC 

AD 

AG 

AI 

+ 20 THEN 
+ 20 THEN 


RETURN 

RETURN 


= 140 


354 

356 

358 

360 

361 

362 

363 

364 

365 

366 
368 
370 
330 
390 
400 

410 

411 


HCOLOR= 1 
= 1 THEN 
= 1 THEN 
= 1 THEN 
= 1 THEN 
1 THEN 


: ROT = 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 


1 AT 40,9 

1 AT 90,9 

1 AT 140,9 

1 AT 190,9 

1 AT 240,9 

nvumn- 3: ' HPLOT 1,20 TO 30,20 
HPLOT 30,20 TO 30,1 TO 50,1 TO 50,20 
HPLOT TO 80,20 TO 80,1 TO 100,1 TO 100,20 
HPLOT TO 130,20 TO 130,1 TO 150,1 TO 150,20 

HPLOT TO 180,20 TO 180,1 TO 200,1 TO 200,20 

HPLOT TO 230.20 TO 230,1 TO 250,1 TO 250,20 

HPLOT, TO 278,20 

rot= o: scale= i 


2 AT AC,105 
279 THEN AB 


= 0 


HCOLQR— 4: DRAW 2 AT AB,105: DRAW 
AB = AB + Si:AC = AC ♦ Si: IF AB > 

IF AC > 279 THEN AC = 0 
HCOLOR= 7: DRAW 2 AT AB.105: DRAW 
IF FD = 1 THEN HCOLOR= 4: DRAW 1 

< 10 THEN 300 

412 IF FD = 1 THEN HCOLOR= It DRAW 

414 GOSUB 230 

415 x = PEEK ( - 16384): IF X > 127 THEN 

420 HCOLOR= 4! DRAW 2 AT AD,78 

430 AD = AD ♦ S2t IF AD < 0 THEN AD = 279 

440 HCOLOR= 7: DRAW 2 AT AD,78 = 

441 IF pD = 2 THEN HCOLOR= 4! DRAW 1 AT FB,FC.FB 

< 1n THEN 300 


2 AT AC,105 
AT FB,FC:FB = FB 

AT FB,FC 

GOSUB 80 


SF: if FB > 
270 OR FB 


SF: if FB > 
270 OR FB 



442 IF FD = 2 THEN HCOLOR= 1: DRAW 1 AT FB,FC 

444 GOSUB 230 

445 X = PEEK ( - 16334): IF X > 127 THEN GOSUB 80 

450 HCOLOR= 4: DRAW 2 AT AF,52: DRAW 2 AT AG,52 

460 AF = AF + S3:AG = AG + S3: IF AF > 279 THEN AF = 0 
470 IF AG > 279 THEN AG = 0 

430 HC0LOR= 7: DRAW 2 AT AF,52: DRAW 2 AT AG,52 

481 IF FD = 3 THEN HCOLOR= 4: DRAW 1 AT FB,FC:FB = FB + SF: IF FB > 270 OR FB 

< 10 THEN 300 

482 IF FD = 3 THEN HCOLOR= l: DRAW 1 AT FB,FC 

484 GOSUB 230 

485 X = PEEK ( - 16384): IF X > 127 THEN GOSUB 80 

490 HCOLOR= 4: DRAW 2 AT AH,25: DRAW 2 AT AI,25 

495 AH = AH + S4:AI = AI + S4: IF AH < O THEN AH = 279 
500 IF AI < O THEN AI = 279 

510 HCOLOR= 7: DRAW 2 AT AH,25: DRAW 2 AT AI,25 

530 HCOLOR= l: ROT = FE: SCALE= 1 

531 IF FD = 4 THEN HCOLOR= 4: DRAW 1 AT FB,FC:FB = FB + SF: IF FB > 270 OR FB 

< 10 THEN 300 

532 IF FD = 4 THEN HCOLOR= 1: DRAW 1 AT FB,FC 

533 HCOLOR= 4: DRAW 1 AT FB,FC 

534 GOSUB 230 

537 IF FB > 270 OR FB < 10 THEN GOTO 300 
540 HCOLOR= 1: DRAW 1 AT FB,FC 

550 X = PEEK ( - 16384): IF X > 127 THEN GOSUB 80 

560 POKE - 16368,0 

570 GOTO 370 

2000 TEXT : HOME 

2005 RESTORE 


2010 

2020 

VTAB 

PRINT 

10 

H 

SSSSS 

PPPPPP 

LL 

AAAAA 

TTTTTTT 

2030 

PRINT 

N 

SSSSSSS 

PPPPPPP 

LL 

AAAAAAA 

TTTTTTT 

2040 

PRINT 

M 

SSS SS 

PP pp 

LL 

AA AA 

TTT " 

2050 

PRINT 

M 

sss 

pp pp 

LL 

AA AA 

TTT " 

2060 

PRINT 

N 

ssssss 

PPPPPPP 

LL 

AAAAAAA 

TTT" 

2070 

PRINT 

>1 

ssssss 

PPPPPP 

LL 

AAAAAAA 

TTT" 

2080 

PRINT 

» 

sss 

ppp 

LLLLLL 

AA AA 

TTT" 

2090 

PRINT 

II 

SSSSSSS 

ppp 

LLLLLL 

AA AA 

TTT" 

2100 

PRINT 

* 

SSSSS 

ppp 

LLLLLL 

AA AA 

TTT" 

2110 

FOR I 

= 

1 TO 2 






2112 FOR II = 1 TO 30: READ DD: POKE 0,DD: CALL 763: NEXT 

2114 RESTORE : NEXT 

2115 SF = O 

2120 LL = LL + l: IF LL > 3 THEN 5000 
2130 RETURN 
5000 TEXT : HOME 

5020 PRINT : PRINT : PRINT M BAD LUCK!" 

5030 PRINT : PRINT " YOURE SCORE WAS "JSC 

5040 IF SC > 5000 THEN PRINT " NOT A BAD SCORE" 

5050 FOR I = 1 TO 25: READ DD 

5055 FOR I = O TO 255 STEP 6: POKE 0,1:' CALL 768: NEXT 

5060 DATA 250,250,250,250,250,200,200,200,150,150,100,100,0,0,0,255,0,0,0,255,0 
,0,0,255,O,0,0,0,0,O 

5066 FOR I = 255 TO 1 STEP - 6: POKE 0,1: CALL 768: NEXT 
5100 END 

7000 REM FD=5, OR HOME!! 

7010 IF FB < 50 AND FB > 30 AND HI = 0 THEN HI = l: GOTO 7100 
7020 IF FB < 100 AND FB > 80 AND H2 = O THEN H2 = 1: GOTO 7100 

7030 IF FB < 150 AND FB > 130 AND H3 = O THEN H3 = 1: GOTO 7100 

7040 IF FB < 200 AND FB > 130 AND H4 = O THEN H4 = 1: GOTO 7100 

7050 IF FB < 250 AND FB > 230 AND H5 = O THEN H5 = 1: GOTO 7100 

7060 GOTO 300 
7100 REM SUCCESS!! 

7102 FOR I = 1 TO 12: POKE 0, INT < RND (1) * 100 + 1): CALL 768: NEXT 
7105 HH = O 


71 10 

IF 

HI = 

1 

THEN 

DRAW 

1 

AT 

40,9: 

HH = 

HH + 

1 


"? 1 *20 

IF 

H2 = 

1 

THEN 

DRAW 

1 

AT 

90,9: 

HH = 

HH + 

A 


7130 

IF 

H3 = 

1 

THEN 

DRAW 

1 

AT 

140,9 

: HH 

= HH 

f 

1 

7140 

IF 

H4 = 

1 

THEN 

DRAW 

1 

AT 

190,9 

: HH 

= HH 

+ 

1 

7150 

IF 

H5 = 

1 

THEN 

DRAW 

1 

AT 

240,9 

: HH 

= HH 


1 


7160 

IF HH = 5 THEN 

HI 

= o: 

H2 = 

o:H3 = 

o :H4 = o:H5 = o: 

SC = SC + 1000: FOR I = 

1 TO 

30: POKE 0, INT 

i RND ( 

1 ) * 

255) : 

CALL 768: NEXT 


7170 

GOTO 10000 







8000 

POKE 768, 16*?: 

POKE 

769 

,4: 

POKE 77 

0,133: POKE 771,1 

: POKE 772,234: POKE 773 

, 234: 

: POKE 774,234: 

POKE 

775 

, 173 

: POKE 

776,48: 


3001 

POKE 777,192: 

POKE 

778 

, 136 

: POKE 

779,203: POKE 730 

,4: POKE 781,198: POKE 7 





UNEAR EQUATION 


Two co-ordinates are entered 
in the form (X1,Y1) and 
(X2,Y2). From this data, the 
computer will work out the equ¬ 
ation of the line joining these 
two points. It takes into accoqnt 
whether the line is vertical or 
not. 

In addition, the computer will 


10 CLS 

20 INPUT'ENTER CO-ORDINATES ( Xl,vj >Xl,Yl 
30 INPIIT'ENTER CO-ORDINATES ( X2, Y2>' ; X?, Y? 

AO PRINT SPRINT SPRINT 
50 REM +MIDP0INT+ 

SO Mls(Xl+X2) 2 S M2=(Yl+Y2)/2 

70 PRINT'MIDPOINT S C;Ml;' , *; *12^ * )' 

SO REM +DISTANCE+ 

90 D=SQR(((X1-X2).TM.(Xl-X2))+((Y1- V 2).TM.(Yl-Y2)>> 

100 PRINT'DISTANCE S';D 
110 REM +0R4DIENT+ 

120 IF Xl-X2=0 THEN 160 
130 G=(Yl-Y2)/(Xl-X2) 

140 PRINT'GRADIENT S';G 

150 GOTO 170 

160 PRINT'GRADIENT S LINE IS VERTICAL' 

170 REM +Y-INTERCEPT+ 

180 IF Xl-X2=0 THEN 220 
185 IF Y1-Y2=0 THEN 195 
190 BsYl-(G.TM.Xl ) sGOTO 200 
195 9=Y1 

200 PRINT'Y-INTERCEPT S';B 
210 GOTO 230 

220 PRINT'Y-INTERCEPT S UNDEFINED' 

230 REM +X-INTERCEPT* 

240 IF Yl-Y2=0 THEN 280 

245 IF Xl-X2=0 THEN 255 

250 Cs-B/G sGOTO 260 
255 C=Xl 

260 PRINT’X-INTERCEPT 5* • C 
270 GOTO 290 

280 PRINT'X-INTERCEPT 5 UNDEFINED' 

290 PRINT SPRINT 
300 REM +EQUATI0N+ 

310 IF Xl-X2=0 THEN PR I NT'EQUATION 5 X = '*Xl SGOTO 400 

320 IF Yl-Y2=0 THEN PRINT'EQUATION S Y =';Y1SGOTO 400 

330 IF B=0 THEN PRINT'EQUATION S Y = G;'X' SGOTO 400 
340 IF B.LT.O THEN PRINT'EQUATION S Y = ';G;'X -•;ABS(9)sGOTO 4 
00 

350 PRINT'EQUATION S Y =';G;'X + ';6 
400 REM 

410 PRINT.AT.960,'PRESS *L' TO RUN AGAIN", 

420 IF INKEYS.LT..GT.'L* THEN 420 ELSE RUN 


also give the midpoint, distance, 
gradient, y-intercept and x-inter- 
cept of the line. It takes into ac¬ 
count whether the gradient, y- 
intercept or x-intercept is unde¬ 
fined. 

Great for working out maths 
homework. Will work on any 
computer using BASIC. 

S. Chan 
Minto Heights NSW 



"■ 3 9 , 0 I POKE 770,76: POKE 7 9 


>3,240: FOKE 734,3: r-OKE 733,202: 

■••7,^00: POKE 787,246r POKE ^33,166: PC 
-.7! POKE 7?3 76: POKE 794 203: 

■’= 4 ' DP AM 1 AT ^F ? FC 

CHf* '4': "PLEAT CHAIN, A520" 

~ r pr\ »• •• 

- > - j > - , 1C , , 6 , w4,63 , ->£ , 60,5s, 14, 4i_ , 5 6,54,54 , D4,37,44,4 b, 43,43,5 

?0?9T t>AT4 36,44,37,36,36,33,54,63,36,63,3,63,63 , t»3, 55,53,55,55,54,55,54,55,54, 
34,46.54,46. 

DATA 46,46,46,45,45,45, 45,43,43., 45,45,45,37,37,37,37,36,37,36,37,36,36,60 
,36.60,60,60, 

20015 TATA f0,63,63,63,63,63,63,0,63,55,54,63,63,63, 

1 TO 30: READ D: NEXT 
20020 FOR I = 16384 TO I 6434: READ D: POKE I,D: NEXT 


P?,i; 

POKE T 7 

poop 

POKE 7 

. —». 

p r, L9 cr -?o 

OA1 

RETURN 

1 OOOO 

HCOLO! 

« nr.oc; 

D O T fvj -r 

10010 

O / \ l 1 ! 

r 1 r* > r\ 

n 

H 

3,46, 

3 6,36-6" 


DATA ■ 

54,46 

54,46,. 1 

200 1 O 

DATA * 

- 36,60,36.60 

20015 

TATA 

20018 

FOR I 

20020 

FOR I 

20030 

RETIJRI 
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SPECIAL FUNCTION KEYS 


This program will let you type in 
commonly used DOS com¬ 
mands (CATALOG etc) and 
Applesoft reserved words 
(INPUT, FOR, NEXT etc) using 
the control characters. For 
example, typing control-1 will 
cause the word INPUT to ap¬ 
pear exactly as though you 
have just typed it in from the 
keyboard, character by char- 
acter-but it only takes a small 
fraction of the time. Great news 
for hunt and peckers! 

The list of keywords and the 
control characters which repre¬ 
sent them are given in the table. 
Putting stickers on the keys is 
fine in the short term, but even¬ 
tually they tend to gum up the 
works (pun intended). 

Notice that not all the avail¬ 


able control characters are 
used. Some are used by Apple 
for special purposes (namely 
control - C,D,G,H,J,K,M,S,U,X). 

To type in this program, first 
ensure that DOS has been 
booted, then enter the Monitor 
by typing CALL -151 when you 
will see the prompt \ Now sim¬ 
ply type in each line of the hex 
code as it appears in the listing 
- begin each line with the line 
number, to be followed im¬ 
mediately by a colon (:) and 
then the first 2 digit hex code 
and so on. After entering the 
program, type 3DOG to return 
to Applesoft. Save the program 
on disk using the command: 
BSAVE CUSTOM KEYS, 
A$9500, L$FF 

To use the control character 


utility program, simply BRUN it 
from disc after booting DOS. 
Better still, BRUN it in your 
HELLO program. This program 
can be temporarily discon¬ 
nected by a RESET or a CALL 
38164. When BRUN from disk 
this program will be located in 
memory just below DOS at 
starting address $9500 (hex). It 
also protects itself from being 
trampled upon by Applesoft by 
resetting HI MEM. 

This program will work on an 
Apple II plus with DOS 3.3, an 
Apple work-a-like (provided it is 
sufficiently alike) or an Apple lie 
in the 40 column mode. It is in¬ 
compatible with the Apple lie 80 
column firmware which uses 
many of the control characters 
to provide special 80 column 
functions. 


Derek Chan 
Hawker ACT 





*9500 

95FF 







1 CAST OF CONTROL 

CHARACTERS 

9500- 

A9 

28 

85 

38 

A 9 

95 

85 

39 




9508- 

20 

EA 

03 

A9 

FF 

85 

73 

A9 




9510- 

94 

85 

74 

60 

A 9 

IB 

85 

38 

COMMAND 

KEY 

HINT 

9518- 

A9 

FD 

85 

39 

20 

EA 

03 

60 




9520- 

9D 

00 

02 

E8 

20 

FO 

FD 

60 




9528- 

Of) 

IB 

FD 

18 

C9 

9B 

90 

01 




9530- 

60 

C9 

97 

DO 

OA 

A9 

28 

85 

CATALOG 

control V 

disc Volume 

9538- 

21 

20 

58 

FC 

A9 

AO 

60 

C9 

LIST 

control L 

List 

9540- 

80 

FO 

FB 

C9 

83 

FO 

F7 

C9 

RUN 

control R 

Run 

9548- 

84 

FO 

F3 

C9 

87 

FO 

EF 

C9 



9550- 

88 

FO 

EB 

C9 

8A 

FO 

E7 

C9 

FOR 

control F 

For 

9558- 

8B 

FO 

E3 

C9 

BD 

FO 

DF 

C9 

NEXT 

control N 

Next 

9560- 

91 

FO 

DB 

C9 

93 

FO 

D7 

C9 

STEF 

control 2 

Ztep 

9568- 

95 

FO 

D3 

C9 

98 

FO 

CF 

38 

THEN 

control T 

Then 

9570- 

E9 

80 

8D 

9D 

95 

AO 

On 

B9 




9578- 

9E 

95 

CB 

C9 

AA 

FO 

03 

4C 

CALL 

control A 

cAl 1 

9580- 

77 

95 

CE 

9D 

95 

AD 

9D 

95 

PEEK ( 

control E 

pEek( 

9588- 

C9 

00 

FO 

03 

4C 

77 

95 

B9 

POKE 

control 0 

pOke 

9590- 

9E 

95 

C9 

AA 

FO 

A6 

20 

20 

PLOT 

control P 

Plot 

9598- 

95 

C8 

4C 

8F 

95 

00 

AA 

C3 




95A0- 

Cl 

CC 

CC 

AA 

C7 

CF 

DC- 

D5 

GOSUB 

control B 

gosuB 

95A8- 

C2 

AA 

AA 

AA 

DO 

C5 

CS 

CB 

GO TO 

control Y 

Y looks like a branch 

95B0- 

A8 

A A 

C6 

CF 

D2 

AA 

AA 

AA 




95BB- 

C9 

CE 

DO 

D5 

D4 

AA 

AA 

AA 

INPUT 

control I 

Input 

95C0- 

CC 

C9 

D3 

D4 

AA 

AA 

CE 

C5 

PRINT 


Applesoft treats ? 

95C8- 

D8 

D4 

AA 

DO 

CF 

CB 

C5 

AA 



as PRINT 

95D0- 

DO 

CC 

CF 

D4 

AA 

AA 

D2 

D5 




95D8- 

CE 

AA 

AA 

D4 

CB 

C5 

CE 

AA 

Clrs scrn 

control W 

Wipes screen Window 

95E0- 

AA 

C3 

Cl 

D4 

Cl 

CC 

CF 

C7 

set 40 col 



95E8- 

AA 

AA 

AA 

C7 

CF 

AO 

D4 

CF 




95F0- 

AA 

D3 

D4 

C5 

DO 

AA 

D5 

D4 




95F8- 

AA 

AA 

C3 

Cl 

D4 

Cl 

CC 

00 
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CATALOG HfTERRUPT 



790 

800 

810 

820 

830 

840 

850 

853 

854 

855 

857 

858 

859 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 


1030 

1040 

1050 
1060 
1070 
1100 
1110 
1120 
11 30 
1140 
1150 
1180 
1 1 90 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1 290 
1300 
1310 
1330 
1 340 
1350 
1360 
1370 
1 380 
1390 
1400 
1 410 
1430 
1 440 
1450 
1 460 
1470 
1 480 
1490 
1500 


REM 

REM ***************************** 

REM * Read filename from screen * 

REM ***************************** 

REM 

PK = PK - 1:PK$ = CHR$ ( PEEK (PK)) 

PK = PK + 1 
REM 

REM *********************************************************** 
REM * Check for five consecutive spaces on screen to indicate * 
REM * end of filename * 

REM *********************************************************** 
REM 

IF PEEK (PK) = 160 AND PEEK (PK + 1) = 160 AND PEEK (PK + 2) 

= 160 AND PEEK (PK + 3) = 160 AND PEEK (PK + 4) = 160 THEN 980 
PK$ = PK$ + CHR$ ( PEEK (PK)) 

GOTO 850 
REM 

REM *************************************************** 

REM * Locate memory address of cursor screen position * 

REM *************************************************** 

REM 

IF CD > 0 AND CD < 9 THEN PK = 1031 + 128 * (CD - 1) 

IF CD > 8 AND CD < 17 THEN PK = 1071 + 128 * (CD - 9) 

IF CD > 16 AND CD < 25 THEN PK = 1111 + 128 * (CD - 17) 

FT = PEEK (PK - 6): RETURN 
PRINT D$ 

IF CU$ = "D" THEN PRINT D$;"DELETE";PK$: VTAB CD: HTAB 1: 

CALL - -868: VTAB CD: HTAB 8 

IF CU$ = "L" THEN PRINT D$;"LOCK";PK$: VTAB CD: HTAB 1: 

PRINT VTAB CD: HTAB 8 

IF CU$ = "R" OR CU$ = "O" THEN 1040 

IF CU$ = "U" THEN PRINT D$;"UNLOCK";PK$: VTAB CD: HTAB 1: 

PRINT " ": VTAB (CD): HTAB 8 


GOTO 560 

IF FT = 212 THEN VTAB 2: HTAB 1: CALL - 868: FITAB 10: FLASH 
: PRINT "FILE TYPE MISMATCH": NORMAL : HTAB 8: VTAB CD: GOTO 560 
GOTO 1350 

REM ********************************************** 

REM * Set up DOS to read next 21 catalog entries * 

REM ********************************************** 

REM 

POKE 45981,21 
REM 

REM ************************************************************ 
REM * Check catalog end flag at $320 and exit if equal to zero * 
REM ************************************************************ 
REM 

IF PEEK (800) = 0 THEN 1350 
REM 

REM ************************ 

REM * GOTO routine at $310 * 

REM ************************ 

REM 

VTAB 23: HTAB 1 
CALL 784 

CD = 2: HTAB 8: GOTO 530 
REM 

REM ***************************** 

REM * Change DOS back to normal * 

REM ***************************** 

REM 

POKE 44601,32: POKE 44602,12: POKE 44603,253 
POKE 44589,127: POKE 44590,179 
POKE 34,0: POKE 35,24 
HOME 
REM 

REM *********************************************** 

REM * RUN,BRUN,LOAD or BLOAD filename as selected * 

REM *********************************************** 

REM 

IF FT = 193 AND CU$ = "R" THEN PRINT D$;"RUN";PK$ 

IF FT = 193 AND CU$ = "O" THEN PRINT D$;"LOAD";PK$ 

IF FT = 194 AND CU$ = "R" THEN PRINT D$;"BRUN";PK$ 

IF FT = 194 THEN PRINT D$;"BLOAD";PK$ 

END 

DATA 186,142,155,179,32,37,174,96,169,0,141,32,3,76,127,179,1 


Writing programs requiring re¬ 
trieval of files from a disk, I 
found it desirable to have the 
catalog of disk files displayed 
on the screen from within a 
BASIC program to assist the 
program user to enter the 
filename as it is stored on the 
disk. A more useful feature 
would be to have the displayed 
file selectable. 

The program is essentially in 
two parts. The first part handles 
the DOS alteration to display 
one ‘page’ of the catalog at a 
time (18-21 lines). The second 
part of the program manipulates 
the screen cursor and performs 
DOS commands on filenames 
present on the screen. 

The program listing contains 
a liberal sprinkling of REMark 
statements which summarise 
the workings of the program. 
These lines can be left out 
when typing in the program, as 
they are not referenced by any 
GOTO’s or GOSUB’s. A list of 
the main variables used are 
given in figure 1. 

Note: It is advisable when first 
running the program to use a 
backup copy of your disk and 
double check the expressions in 
the POKE statements. Indis¬ 
criminate poking around in DOS 
could produce disastrous re¬ 
sults. 


Denis Yan 
Ingleburn NSW 


130 HTAB t = CALL - IF K = 


5 DIM JKM) 

10 GOTO 360 8 THEN NEW 

20 POKE 216,0 140 PRINT "PRESS LETTER YOU WISH 


25 RESTORE 

30 FOR X ■ 1 TO 6' READ B*<X> = NEXT 

50 DATA LOAD,LOCK,UNLOCK,DELETE 
,RENAME,EXEC 

60 TEXT : HOME = D* = CHR* <4) = PRINT 
D*"CATALOG"=B = PEEK (37' - 

2 = IF B > 22 THEN 6 = 22 

70 T = 0 : CH = 4- FOR CV = 0 TO 23 

! GOSUB 260 : IF C < > 160 THEN 
POKE P - 1,219= POKE P,T + 

193= POKE P + 1,221=T = T + 

1=S = CV 

80 NEXT CV= VTAB 24 = A* = "TYPE L 
ETTER TO RUN, OR LOAD = 

1 LOCK = 2 UNLOCK = 

3 DELETE * 4 RENAME 

= 5 EXEC = 6 SYS. GE 

N. = 7 FLASH - CATALOG = 

8 EXIT =*9 . 

90 B* = "RUN" : HTAB 1= PRINT LEFT* 
(A*,39); = A* = MID* <A*,2) + 
LEFT* <A*,1) = K = PEEK < - 
16384)= IF K < 128 THEN FOR 
K = 1 TO 73= NEXT KK - FRE 
<0) = GOTO 90 

100 POKE - 16368,0=K = K - 176= 

IF K < 0 OR K > 9 THEN 200 
105 IF K = 8 THEN NEW 

110 IF K = 7 THEN 400 

115 IF K = 3 THEN 800 

120 IF K > 9 THEN 90 


TO 

150 IF K = 4 THEN FLASH 

160 PRINT B*<K); = NORMAL 

170 B* = B*<K) 

180 ONERR GOTO 290 

190 CALL - 193= NORMAL = GET K* 

=K = ASC <K*> - 48 

200 IF K < 17 OR K > T + 16 THEN 
= HOME = CLEAR = PRINT CHR* 

<4).= "RUN HELLO" 

210 CH = 1=CV = S - T + K - 16= GOSUB 
260= IF C = 194 AND <B* * "R 
UN" OR B» = "LOAD") THEN B* = 

"B" + B* 

220 FOR CH = 6 TO 39= GOSUB 260= 

B*. = B* + CHR* <C>= NEXT CH 
= IF LEFT* <B*,6) = "RENAME 
" THEN 280 

230 VTAB PEEK (37) + 1= HTAB 1= 

CALL - 363- PRINT B*= PRINT 
D*;B* 

240 IF LEFT* <B*,4) « "EXEC" THEN 
HOME = PRINT Dti"MON C,I,0" 

= END 

250 GOTO 30 

260 Cl = I NT (CV / 8) = C2 = CV - 
Cl * 8=P= 1024 + 128 * C2 + 

40 * Cl + CH C = PEEK <P)= RETI 

279 FOR CH = 6 TO 39= GOSUB 260 = 

B* = B* + CHR* <C) = NEXT CH 
= HTAB 1= CALL - 868= PRINT 
B*= PRINT D*.= B* = GOTO 30 

280 HTAB 1= VTAB 23= PRINT "ORIG 
INAL 


i MID* (B*,7>= VTAB PEEK 





C2l7Z HTA8 « CALL - 868 


460 PRINT « PRINT r "K - EXIT TO Pi 


1= INPUT "NEW FILENAME ? ";N 
Ef- PRINT CHRT <4>;B$; CHR$ 
<44>;NE* S GOTO 30 
290 POKE 216,0:ERR = PEEK <222> 

* IF LEFTS <68,6) = "DELETE 
" THEN 340 

300 IF ERR = 19 THEN VTflB 23 : PRINT 
"FILE LOCKED- (CONTINUE OR 
<A)BORT ", 

310 GET NS 

320 IF NS = "C" THEN PRINT ONES 
<4 )j"UNLOCK"; MIDS PRINT 

CHRS (4);BS;", ";NES 
330 GOTO 30 

340 IF ERR = 10 THEN HTAB 1’ VTflB 
23 : PRINT "FILE LOCKED- <00 
NTINUE OR (fl)BORT = GET NS 

* IF NS = "C" THEN PRINT DT 
;DS;"UNLOCK"; MIDS <88,7> : PRINT 
DS;BS- GOTO 30 

330 GOTO 30 
360 ONERR GOTO 390 
370 PRINT CHRS (4);"EXEC STflRTU 
P FILE" 

380 END 
390 GOTO 28 

400 HOME : INVERSE : PRINT "SYST 
EM GENERATOR" 

410 PRINT CHRS <7> 

420 NORMAL : PRINT = PRINT "i - 
GENERATE NEW HELLO PROGRAM" 

430 PRINT : PRINT "2 - GENERATE 
STARTUP FILE" 

440 PRINT : PRINT "3 - INITIflLIS 
E DISK" 

430 PRINT : PRINT "4 - GENERATE 
GFEC FILE" 


AIN MENU" 

470 GET AS- PRINT 
472 IF AS - "1" ! HEN l- S ~ " " : GOTO 
750 

475 IF AS = "3" THEN 690 
438 IF AS = "4" THEN 620 
490 IF AS = "X" THEN RUN 
500 IF AS < > "2" THEN 408 

510 HOME : INVERSE ^ PRINT "STAR¬ 
TUP FILE GENERATOR" : NORMAL 
= PRINT 

520 GOSUB 660 

5:30 PRINT F$ = "STARTUP FILE" : X 

= O 

340 INPUT JS< X) : IF JS(K) - "" THEN 
578 

358 IF JSOO = CHRS <2> AND X > 

0 THEN X = X - l- PRINT JSC X 
PRINT "ENTER FROM HERE ON 

WARDS": PRINT : GOTO 540 

560 X = X + 1: IF X < 99 THEN 540 


570 

PRINT D$;"OPEN 

";F$- 

PRINT D 


"DELETE ";F$ 



530 

PRINT D* •"OPEN 

";F$: 

PRINT D 


"WRITE ";F$ 



590 

FOR J = 0 TO X* 

PRINT 


NEXT J 



600 

PRINT D$;"CLOSE 

" F$ 


613 

PRINT : PRINT "DONE. 

PRESS 


ANY KEY TO CONT 

INUE. 

..";: GET 


flit: GOTO 480 



620 

PRINT = PRINT 



630 

INPUT "WHAT FILENAME 

? ":F$ 

640 

IF VflL <F*> ' 

> 0 i 

OR F$ - 


THEN PRINT CM*$ <?)"ILL 


DUO 

1HL0 

This program includes two new 
features: 

1. The ‘Flash Catalog’ routine 
from the Apple DOS (3.3) 
Manual, which displays hidden 
control characters in file names 
as flashing letters* 

2. The capability to create 
and use Exec files, and to set 
up a series of commands to be 
executed automatically on 
start-up. 

These facilities may be oper¬ 
ated by options 7 (Sys Gen) 
and 8 (Flash Catalog) on the 
menu; i.e: the message that 
scrolls around at the bottom of 
the screen. Files may be exe¬ 
cuted by using option 6 (Exec). 

for the uninitiated, control 
characters can be put into file 
names as a sort of password; 
they can be extremely annoy¬ 
ing if you forget what or where 
they are. 

Andrew Maizels 
Mt. Colah NSW 


> 



'IILLO 'ULLO 


0 EGa. FILENAME" ; PRINT = GOTO 
630 

650 GOSUB 668 : GOTO 540 
660* HOME 

6?0 PRINT "ENTER THE STATEMENTS 
YOU WISH TO BE EXECUTED. 

PRESS RETURN BY ITSELF WHE 
N YOU HAVE FINISHED. USE C 
TRL-B <RETURN> TO CHANGE YO 
UR PREVIOUS ENTRY" 

680 RETURN 

690 HOME : PRINT CHRt < 7)■ INPUT 



,! N" THEN 400 


750 

HONE : INVERSE 

PRINT :, GCNl 


RATING GREET IN 

38 PROGRAM... ” 


' NORMAL 


760 

IF Ft = "" THEN PRINT ■ INPUT 


"WHAT FILENAME 

? ";F* 

770 

PRINT 0$J "SAVE 

" ; F$ 

780 

PRINT * PRINT 1 

PRESS ANY KEY 


TG RETURN...".; 

: GET A*: GOTO 


400 


800 

HOME 


803 

RESTORE = FOR X 

= 1 TO 6: READ 


"INSERT DISK TO BE INITIALIS 
ED. THEN PRESS RETURN... 

"; 2 * 

700 PRINT = PRINT •• INPUT "WHAT 
FILENAME DO YOU WISH TO BE E 
XECUTEDON STARTUP ? ";F$ 

710 IF VAL (F$) < >8 THEN PRINT 

CHR$ < 7 > i "ILLEGRL FILENRME" 

; PRINT : GOTO 700 
715 PRINT : INPUT "WHAT VOLUME N 
UMBER DO YOU WANT ? ";A 
720 PRINT . PRINT . INPUT " IUSER 
T DISK TO BE INITIALISED. TH 
EN PRESS RETURN..."j 2$ 

730 PR I NT D*;" INIT "; Fit;", V"; A 
740 PRINT • PRINT "DO YOU WANT A 
COPY OF THIS PROGRAM ON T 
HE DISK ? ■ GET ZZ IF 2* = 


A$ ; NEXT 


810 DATA 201.141,240.21.201.1 

36 

820 DATA 240,17,201,128,144,1 

3 

830 DATA 201,160,176,9,72,132 


340 DATA 33,56,233,64,76,249 

850 DATA 253,76, 240,253 

060 FOR I = 768 TO 768 + 27 
870 READ V- POKE I,V = NEXT I 
880 POKE 54,0: poke 35,3 
890 CALL 1002 

300 PRINT "FLASK - CATALOG INSTA 
LLEO AND READY.": PRINT * PRINT 
"PRESS ANY KEY TO CONTINUE.. 

.: GET fi* GOTO 22 





I APPLE SPACE WAR 


This is basically a Space Invad¬ 
ers type of game, with both 
player and aliens using laser 
weapons rather than missiles. 
The player has only one life, but 
starts with 100 energy points 
which decrease when he fires 
at, or is hit by, aliens. 

It is possible to earn a score 
of 200, and 20 energy points, 
by hitting the strongest alien, 
but that being can inflict up to 
105 points of damage on you! 

The program includes instruc¬ 
tions for playing, which may be 


chosen from the startup menu, 
and has two special features: 

1 - The top fifteen scores, 
and the players names, are 
stored permanently on disk. 

2 - A “Demo” mode, in which 
the computer plays both sides. 
If left unattended, the program 
will automatically enter this 
mode returning to the menu 
after each game to give a 
human a chance (if one is pre¬ 
sent). The computers top score 
is 180. 

The game normally starts 
with one alien, with more (up to 


20) appearing as the game 
progresses. The starting 
number may be altered by 
changing the value given to NT 
in line 490. 

If you experience problems 
with the disk file, try changing 
line 1190 to read: 1190 PRINT 
D$;D$;“OPEN”;F$. On the sub¬ 
ject of the disk file, use the pro¬ 
gram “Hiscore Creator” to set 
up the file before your first 
game (or to erase the high 
score table later). 

Andrew Maizels 
Mt. Colah NSW 


If 


■ 


:|:||| 

II 


10 QNERR ijUTO itbo 
20 DIM K<3> 

30 K< 0) = 3 : K( 1) = 21 : K<2) = 32 
40 DES = "D" 

50 DIM D(21 )jC( 21), T< 21 >, R< 21 
60 HOME = G0SU6 70= GOTO 330 
70 PRINT " - 


80 PRINT 
90 PRINT " 

i 

100 PRINT 
110 PRINT 

L3 

120 PRINT 
33 

130 PRINT 
140 PRINT 
RME 

150 PRINT 
160 PRINT 
RE 

170 PRINT 
180 PRINT 
2108 


APPLE SPACE WAR! 

BY ANDREW MAIZE 

COPYRIGHT 13.7. 

ANOTHER GREAT G 

FROM 

GANYMEDE SQFTWA 

PHONE = < 02) 477- 


200 PRINT " 


210 PRINT : PRINT 

ANY KEY TO PLAY, OR" 

220 PRINT = PRINT ,! D - DEMONSTRA 
TION GAME" 

230 PRINT = PRINT "I - INSTRUCTI 
ONS" 

240 PRINT = PRINT "X - EXIT" 

250 POKE - 16363,0=A - PEEK ( * 
16334)= IF A < 123 THEN B ~ 
IF B < 508 THEN 250 


260 


8+1 = 

ri = -A - 


GOT! 


270 IF A = S3 THEN END 
238 IF A = 63 THEN DE$ ~ 

333 

298 IF A - 73 THEN 1303 
303 FOR X * 1 TO 75= NEXT 
318 IF A < 8 THEN 0E$ = "D"= GOTO 
330 

320 DE* - "" 

330 DIM NMi< IS),3C<16) 

343 GOTO 1173 
338 G03UB 330 
368 GOTO 438 
370 NEXT 


liiiBliiiis: 

jfglllf 



330 GR = HOME = PRINT "- 

—APPLE SPACE WAR! !- 

330 PRINT "-BY ANDREW 

MAIZELS-" 

408 PRINT "HI SCORE = ,, ;NM$a);" 
";SC<1> 

410 POKE 34,23 
426 RETURN 
433 S = 8=E = 0 
440 HOME 
450 COLOR* 2 

460 FOR Y = 33 TO 39= HLIN 3,39 
Y = NEXT 

478 A = 23 : X - 3 : T 1 ; C 1 = F ~ 


AT 


190 PRINT 


i 
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438 FOR X = 1 TO S»‘D<X> = INT 


( END (1) * 15) + 1'tX.X) - INT 


APPLE SPACE WAR 


< RND <1> * 29> = T<X) - 1 + !NT 


< LOG <X> + < RND <1> * X))' 


708 IF K = 32 T HEH 003 


a ,; X) = INT c. RND <1) * 39> = 


710. .IF X < 3 THEM X - 3? 


0KX> = X * 3= NEXT 


720 IF X > 32 THEN X = 0 


490 NT = 1 


30 COLOR® 0 = PLOT MK-36- PLOT M 


500 SX = " 1« 336 


510 FOR W • I TC NT A = «<«>'< 


740 COLOR® 12= PLOT X.36- PLOT X 


C< QV ) : T = KSV) 


520 COLOR® 0 ; P1 - 0T R ' C ’ PL0T fl ' C 


750 FOR QV ® 1 TO NT-A = «8V>.' C 


= C(QV') 


+ 1=A = A + T 


530 IF INT < RND a> * 4e) " 1 T ’ HEN 


760 I = INT < PND (!>*«» 


770 • IF I < >1 THEN 330 


T = - T 


540 IF A > 38 THEN FI = PND ( 1 ' * 


80 COLOR® 13 = V’LIN C + 2-37 AT 


550 IF A < 0 THEN A = 3 


-30 FOR NN = i TO SO■ NEXT 


560 IF C < 1 THEN 


800 SR = PEEK <«> + PEEK <550 


570 C = C + F= IP c < 1 0R '' '~ d 


PEEK <SX) + PEE K < S ' ;> + PEB ' 


CSV.) - PEEK 


580 B": = PEEK <350 


510 COLOR® 0= VLIN C + 2-37 AT A 


590 COLOR® tXQV> = PLOT A.C = PLOT ^ ^ ^ <fl) >x _ 2 flND INT 


A,C + 1 


600 ACCW) = A = CCQV) - C-KWv; 


<fl) < X + 2 THEN PRINT CHRt 


< 7); CHRt < 7 "> •• CHRt < 7 >; = E ® 


NEXT QV 


IF E > 100 THEN 


610 PRINT "SCORE - ".= S. "ENERGY - 


" ; i 00 - E. ; " " ; 


830 FKGV) = A = C03V> = C = NEXT QV 


620 HTflB 


630 IP E > 100 THEN 1260 


840 GOTO 510 


350 COLOR® 15= VLIN 35-0 AT X= FOR 


40 K = PEEK 


NN = 1 TO 20= NEXT = COLOR® 


16363- 0 


0: VLIN 35-0 AT X 


rr- (jc* = ==rr= THEN K ® K< INT 

b.j0 Pi ., = p E Fj< ( $v) + PEEK •' 


( RND CO * 3)) 


660 TT = TT + 1= IP TT > 


PEEK <32) + PEEK <S2) + PEI 


NT = NT + i-TT = 3 


_ PEEK <37.5 + PEEK <S 


20 THEN NT ® 20 


;/> + PEEK <S2) - PEEK <S*> 


+ PEEK <SJO 


678 MK = X 


580 IF K ® 8 THEN X = 


870 E = E + 








093 IF X = INT CR< Y >) THEN S * 

S + 19 * YE = E - Y = PRINT 
CHR$ C7>; 

900 NEXT 
910 GOTO 753 

30O TEXT • HOME = 79INT ”- 


930 HTflB 1 = PRINT "NRME"; : HTflB 
30 : PRINT "SCORE- ! 

940 PRINT = PRINT 
950 FOR X = 1 TO 15= VTAB X + 4= 
HTflB 1= PRINT NM*CX>; : HTflB 
30 : PRINT SCCX) 1 NEXT 
960 IF S > SCC15) THEN 1930 
970 POKE - 16353,9 
980 IF DE* = "D" THEN FOR X - 1 
TO 5000 : NEXT * RUN 
990 POKE - 16368,0 : PRINT = PRINT 
"PRESS ANY KEY FOR ANOTHER G 
flME, OR 'X‘ TO EXIT..."; = GET 
A*« IF A* - "X" THEN END 
1000 IF fli * "D" THEN RUN 
1010 DE0 * ,M,: GOSUB 380 : FOR X - 

t 

1 TO 1500= NEXT 
1020 GOTO 430 

1030 IF DE* * "D" THEN NM*<15) * 
"THE COMPUTER"= GOTO 1059 
1040 PRINT : PRINT INPUT "WHAT 
IS YOUR NAME, OH CHAMPION ? 
m jNM*<15> 

1050 IF LEN CNM*C 15)) > 20 THEN 
NM*< 15) » LEFT* CNM$C15>,28 
) 

1060 Y * 0 
1070 SCC15) = S 


1080 JFOft X * 1 TO 14 : IF SCCX) < 
8C<X * 1) THEN S » SCC X) SCC 

X) * SCCX + i) = SCCX + 1) - 3 
s NM0 * NM*CX + 1) ; NM*< X * 1) 
« NM*< X > s NM*C X|) = NM* = Y - 1 

1090 NEXT 

1100 IF Y = 1 THEN Y ~ 9 : GOTO i 

061 

1110 s » “1 

1129 F* "HISCORE" ; D* - CHR* <4 

y 

1130 PRINT D*"OPEN "F* = PRINT D* 
"WRITE'T* 

1140 FOR X = I TO 16 : PRINT NM*< 
X) ; PRINT SCCX) NEXT 
1150 PRINT D*"CLOSE" 

1160 GOTO 920 

1170 D* » CHR* <4) = F* » "HI SCORE 

1180 PRINT 0$ 

1199 PRINT D*"OPEN"F* 

1200 PRINT D*"READ"F* 

1210 FOR X = 1 TO 15 
1220 INPUT NM*CX),SCCX> 

1230 NEXT 

1240 PRINT D* ! 'CLOSE'T$ 


1250 GOTO 350 

1260 HOME = INVERSE = PRINT "GAM 
E OVER...", -• NORMAL 
1270 PRINT "ENERGY - !l ; 

1280 FLASH = PRINT 100 - E; : NORMAL 

1290 FOR X = 1 TO 830 : A = PEEK 
C - 16336)= NEXT GOTO 920 
1300 REM INSTRUCTIONS 
1310 HOME = INVERSE =' PRINT CHR* 

C 7 )"- APPLE SPACE 

WAR! -" 

1320 PRINT CHR* C7) 

1330 NORMAL = PRINT " USE THE 
LEFT AND RIGHT ARROWS TO 
MOVE LE r T AND RIGHT." 

1343 PRINT = PRINT " USE THE 

SPACE BAR TO FIRE" 

1350 PRINT PRINT YOUR AIM 

IS TO SHOOT AS MANY OF THE 

ALIEN SPACE CRAFT' C COLO 

URED BLOBS ) AS YOU CAN, 
WHILE AVOIDING THEIR 
FIRE." 

1368 PRINT = PRINT = PRINT "PRES 
S ANY KEY TO RETURN..." 

1370 POKE - 16368,0 : GET A*= RUN ■ 


Hi-Score Creator for Apple Space War 

10 F$="RISCGRE" : Di=CHR4(4) 

?0 PRINT D$;"OPEN ";Fi : PRINT D|;"DELETE";Fi 
30 DIM ?“*.$(15),SC(15) 

40 FOR X = 1 TO 15 : HMJ(X)="-" : NEXT X 

50 PRINT D*;"CPEN";F* : PRINT Di;"WRITE";F| 

60 FOR X = 1 TO 15 
70 PRINT Nl.,i(x) : PRINT 3C(X) 

90 NEXT X 

90 PRINT D»;"CLOSE"jFi 
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SORTS 


S U F> S O R T 

8/1 

2/ ' 

j 

1 00 0 1 

EF 

D8 00 



OFA0- 

AD 

50 10 

LDA 

$1050' 

0FA3- 

8D 

AA 10 

STA 

$10AA 

OFAA- 

AD 

51 10 

LDA 

$1051 

0FA9- 

' 8D 

AB 10 

STA 

$ 1 0 AB 

OFAC- 

A2 

02 

LDX 

*$02 

OFAE- 

8E 

FO OF 

STX 

$0FF 0 

0FB1 - 

A2 

FA 

LDX 

*$F A 

0FB3- 

AO 

03 

LDY 

*$03 

0FB5- 

EE 

AA 10 

INC 

$ 1 0 AA 

0FB8- 

AD 

AA 10 

LDA 

$ 10 AA 

OFBB- 

DO 

03 

BNE 

$ OFCO 

OFBD- 

EE 

AB 10 

INC 

$1 OAB 

0FC0- 

88 


DEY 


0FC1 - 

CO 

00 

CPY 

*$00 

0FC3- 

DO 

FO 

BNE 

$ 0FB5 

0FC5- 

CA 


DEX 


OFCA- 

EO 

00 

CPX 

*$00 

0FC8- 

DO 

E9 

BNE 

$ 0FB3 

OFCA- 

CE 

FO OF 

DEC 

$ OFF0 

OFCD- 

AD 

FO OF 

LDA 

$ 0 F F 0 

OFDO - 

DO 

DF 

BNE 

$ OFB \) 

0FD2- 

A9 

00 

LDA 

*$00 ‘ 

OFDA- 

8D 

A2 10 

STA 

$ 1 0 A2 

0FD7- 

AC 

AA 10 

JMP 

$ 10 AA 

OFDA- 

00 


BRK 


OFDB- 

00 


BRK 


0FDC-. 

00 


BRK 


OFDD- 

00 


BRK 


OFDE- 

A2 

00 

LDX 

*$00 

OFEO- 

BD 

AA 10 

LDA 

$ 1 0 AA 

0FE3- 

20. 

ED FD 

JSR 

$FDED 

OFEA- 

E8 


INX 


0FE7- 

EO 

OA 

CPX 

*$ 0 A 

0FE9- 

DO 

F5 

BNE 

$0FE0 

OFEB- 

AO 


RTS 


OFEC- 

00 


BRK 


OFED- 

00 


BRK 


OFEE- 

00 


BRK 


OFEF- 

00 


BRK 


OFFO- 

7F 


??? 


OFF1- 

00 


BRK 


0FF2- 

00 


BRK 


0FF3- 

00 


BRK 


OFFA- 

00 


BRK 


0FF5- 

00 


BRK 


OFFA- 

AS 

AB 

LDA 

$AB ^ 

0FF8- 

8D 

01 10 

STA 

$1001 

OFFB- 

AS 

AC 

LDA 

$ AC 

OFFD- 

8D 

02 10 

STA 

$1002 

10 0 0- 

AD 

AO 12 

LDA 

$ 12A0 

1003- 

C9 

AE 

CMP 

♦ $AE 

1005- 

FO 

15 

BED * 

$101C 

1007- 

EE 

01 10 

INC 

$1001 

10 0 A- 

AD 

01 10 

LDA 

$1001 

1000- 

DO 

FI 

BNE , 

, $1000 

- 10 OF - - 

EE 

02 10 

INC 

$ioa2 


03 


VlfitfT UK mg > &*'&$ . #****£ - 

py \P/<rf£WS/OAtS‘ \L$]rfj$IP 0 #ljU Ik&I**I**I • 
i* - s/*(ti 

F*B t pf# • ju*VW<5 

&ET flPPACtt roA *#(*-6<t) 

U> *XJL 
■) ' 

(ZJUrO^CJ. /*^f**^ 

1 ftAA ^ 

rt<f x 3 /uxuJxj>~J- (.Sx/rfl^ 

**- ^y 2r0, o x3 ) . 

Ms^ <x*U>^* ^ Ax^jtA. </ 

Nfl>(.f4>4) ^> ^ /fan-ft* 


7 wyjuo^yr^o (3L 


<StAy«A^ -J^JLAAJy^A- CXJ <* «y^ 

^C/tir'-O- <y^ 0<\}lAK^x vdbb-*dLd 

Jh.. ^AJLK^rd Ou&-6-o 4- /OrtiTTrf , 


6<?4 ZaZoL ovoid**-** 

aAAxx^ v^OA^CJl. . 

\ v - <:-»«" u> 

J A&xXC A/.jt ****& * 

I <n*#£ '^^<ju‘\^cC 




1012 - 
1015- 
1017- 
1019- 
101B- 
101C- 
101E- 
1021 - 
1024 — 
1026- 
1029- 
102A- 
102C- 
102E- 
1031- 
1034- 
1037- 
103A- 
10 3D- 
103E- 
103F- 
10 4 0- 

1041- 

1042- 
10 43- 
1044- 
1047- 
104A- 
104B- 
104C- 
10 4D- 
104E- 
10 4F-- 

1050- 

1051- 

1052- 
10 53- 

1055- 

1056- 

1057- 


10 

10 


AD 02 10 
C9 60 
FO 07 
DO E5 
00 

A2 0 0 
EE 01 
AD 01 
DO 03 
EE 02 10 
E8 

EO 07 
DO FO 
AD 02 10 
8D 51 10 
AD 01 10 
8D 50 
40 AO 
00 
00 
00 
00 
00 
00 
00 

4E 4F 20 
4E 3F 3F 
IF 
18 
00 
00 
00 


10 

OF 


LDA 
CMP 
BEQ 
BNE 
BRK 
LDX 
INC 
LDA 
BNE 
INC . 
INX 
CPX 
BNE 
LDA 
STA 
LDA 
STA 
JMP 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
LSR 
LSR 
??? *\ 
CLC J 
BRK 
BRK 
BRK 
BRK 


$1002 

$$60 

$0FE0 

$1000 


'J 




*$ 

$100 

$100 

$1029 

$100 


*$07 

$ 1 0 IE 
$1002 
$1051 
$1001 
$1 


1 ' > \ A/ ft GL 

^ft(.<P) . XjlLoJC 

ft/prfi - /<pr/ 




$OFA0 J <x*LoL>iZ^ 




$2 0 4F 
$3F3F 


f"7 frror mzsSo-J* . _ 

V*JUU y MfCrrt) 



1058- 

01/40" 


ORA 

< $ 4 0 » X ) 

10 5A- 

12 



??? 


105B- 

31 

15 


AND 

($.15) »Y 

1 OSD- 

00 



BRK 


105E- 

00 



BRK 


105F- 

00 



BRK 


1060- 

00 



BRK 

— 

1061- 

00 



BRK 

1062- 

00 



BRK 


1063- 

00 



BRK 


1064- 

AD 

50 

10 

LDA 

$1 05(T\ 

1067- 

8D 

59 

10 

STA 

$1059 

106A- 

8D 

SB 

10 

STA 

$ 1 05B 

106D- 

AD 

51 

10 

LDA 

$1051 

1070- 

8D 

5A 

10 

STA 

$1 05A 

1073- 

8D 

SC 

10 

STA 

$ 1 05C 

1076- 

AE 

52 

10 

LDX 

$1052 

1079- 

A0 

03 


LDY 

*$03 

107B- 

EE 

5B 

10 

INC 

$105B 

107E- 

AD 

5B 

10 

LDA 

$ 105B 

1081- 

DO 

03 


BNE 

$1086 

1083- 

EE 

5C. 

10 

INC 

$ 105C 

1086- 

88 



DEY 


1087- 

CO 

00 


CPY 

*$00 

1089- 

DO 

F0 


BNE 

$ 1 07B 

108B- 

CA 



DEX 



N * 
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SUPSORT is an assembly sort 
which sorts 500 or less records. 
It will sort 500 disordered re¬ 
cords in about 30 seconds. (It 
will sort a reverse ordered list in 
about half that time.) 

The program does the follow¬ 
ing:- 1. Finds the addresses for 
the lengths and pointers of an 
array called N$(501). 

2. Then runs a ‘shellsort’ type 
sort. It compares items 251 
apart (swaps if necessary), then 
items 117,53,232,7,3,1 apart on 
later runs through the list. 

3. If only, say, 200 records are 
being sorted, it still runs through 
this sequence. As Applesoft 
sets all arrays to zero at the 
start, this does not matter. 

By no means is this the ulti¬ 
mate sort for this type of sort. 
The times could be improved by 
at least a factor of two (I be¬ 
lieve) if the ‘Bubblesort’ part at 
the end ran in two directions, 
and only checked the unsorted 
part of the array. 

‘SORTEM’ is a program that 
calls ‘SUPASORT’ to sort its 



array. It dimensions an array 
N$(501), then loads records 
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SORTS 


[> into this array from disc. It then 
calls ‘SUPASORT’ which sorts 
the records, and SORTEM’ 
puts them back on disc. (It also 
displays the sorted records first, 
but this is of course unneces¬ 
sary). 

‘C$RITE’ takes ten records 
and writes them to disc 50 
times; creating a text file of 500 
disordered names. 

‘C$NANNUM’ places 500 re¬ 
cords onto disc, and ‘RESORT’ 


is an example of a program 
which tags the records as they 
are read off the disc. 

‘RESORT’ loads records from 
the disc in reverse order, to see 
how the sort goes with a re¬ 
verse order list. ‘SSORT’ is an 
attempt to use the ‘SUPSORT’ 
with 1000 records. Larger gaps 
are poked into the gap’ part of 
the assembly program. 1000 re¬ 
cords take about 3 minutes to 
sort. 

C. Benson 


108C- 

E0 

00 


CPX 

•too 1 

108E- 

DO 

E9 


BNE 

tl079 

1090- 

A9 

00 


LDA 

•too / 

1092- 

8D 

60 

10 

STA 

♦ 1060 / 

1095- 

4C 

9B 

10 

JMF* 

t 109B/ 

1098- 

00 



BRK 

«/ 

1099- 

00 



8RK 


109A- 

00 



BRK 


1098- 

AD 

5C 

10 

LDA 

tiosc^ 

109E- 

CD 

4B 

10 

CMP 

1104B 

10A1- 

DO 

08 


BNE 

tlOAE ( 

10 A 3 - 

AD 

58 

10 

LDA 

tl05B 

10A6- 

CD 

4A 

10 

CMF' 

1104A f 

10A9- 

DO 

03 


BNE 

tlOAE / 

10AB-- 

4C 

90 

11 

JMF 1 

♦ 1190 

10AE- 

A2 

00 


LDX 

♦too 

1080- 

BD 

59 

10 

LDA 

♦ 1059»X ) 

10B3- 

9D 

D4 

10 

STA 

♦ 10D4»X 

1086- 

9D 

E2 

10 

STA 

♦10E2.X 

1089- 

9D 

73 

11 

STA 

11173 »X 

10 EC- 

9D 

7A 

11 

STA 

1117 A »X 

10 8E- 

BD 

58 

10 

LDA 

♦1058rX 

10C2- 

9D 

DA 

10 

STA 

♦ 10DA» X 

IOCS - 

9D 

E8 

10 

STA 

t 10E8.X 

10C8- 

9D 

77 

11 

STA 

11177»X 

10C8- 

9D 

7E 

11 

STA 

1117E»X 

10 C E - 

E8 



INX 


1 OCF- 

E0 

0 2 


CPX 

*♦02 

10 D1 - 

DO 

DD 


BNE 

♦ 1080 

10D3- 

AD 

40 

12 

LDA 

♦ 1240 

1006- 

8D 

5D 

10 

STA 

11 OSD 

10D9- 

AD 

31 

15 

LDA 

♦ 1531 

1ODC- 

8D 

5E 

10 

STA 

♦ 1 05E 

10DF- 

A2 

01 


LDX 

• ♦01 

10E1- 

BD 

40 

12 

LDA 

♦1240.X , 

1 0 E 4 - 

9D 

23 

11 

STA 

11123 »X / 

10E7- 

BD 

31 

15 

LDA 

♦1531.X / 

10EA- 

9D 

26 

11 

STA 

♦1126.X 1 

10ED- 

E8 



INX 

/ 

1 0 EE- 

E0 

0 3 


CPX 

*♦03 / 

10 F0- 

DO 

EF 


BNE 

t 10El / 

10F2- 

4C 

17 

11 

JMF 

♦1117 / 

10F5- 

00 



BRK 

_/ 

10F6- 

00 



BRK 


1 0 F 7 - 

00 



BRK 


1 0 F 8 - 

00 



BRK 


1 OF 9- 

00 



BRK 


1 OFA- 

00 



BRK 


IOFB- 

00 



BRK 


10FC- 

00 



BRK 


1 OFD- 

0 0 



BRK 


10FE- 

00 



BRK 


1 OFF - 

00 



BRK 


1100- 

00 



BRK 


1101- 

00 



BRK 


1102- 

00 



BRK 


1103- 

00 



BRK 


1104- 

00 



BRK 


11 OS- 

00 



BRK 


1106- 

00 



BRK 


1107- 

00 



BRK 


1108- 

00 



BRK 


1109- 

00 



BRK 


11 0 A- 

00 



BRK 


1108- 

00 



BRK 


110C- 

00 



BRK 
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119D- 

00 



BRK 


110E- 

00 



BRK 


110F- 

00 



BRK 


1110- 

00 



BRK 


1111- 

00 



BRK 


1112- 

00 



BRK 


1113- 

00 



BRK 


1114- 

00 



BRK 


1115- 

00 



BRK 


1116- 

00 



BRK 


1117- 

AD 

5E 

10 

LDA 

♦ IOSeT * 

111A- 

F0 

22 


BEQ 

♦ 113E J ■ 

111C- 

AD 

5D 

10 

LDA 

♦ 105D") ^ 

111F- 

FO 

4F 


BEQ 

$1170^7 ' 

1121- 

A2 

00 


LDX 

#♦00 —v 

1123- 

BD 

00 

00 

LDA 

♦ oooo»x\ 

1126- 

DD 

5D 

92 

CMP 

♦ 925D »X I 

1129- 

F0 

04 


BEQ 

♦ 112F 

112 E: — 

10 

43 


BPL 

♦ 1170 

112D - 

30 

OF 


BMI 

♦113E• ' 

112F- 

E8 



INX 


1130- 

EC 

5D 

10 

CPX 

♦ 1 OSD / 

1133- 

F0 

09 


BEQ 

♦113E / 

1135- 

EC 

5E 

10 

CPX 

♦105E / 

1138- 

F0 

36 


BEQ 

♦1170 / 

113 A - 

E0 

00 


CPX 

#♦00 / 

11 se¬ 

DO 

E5 


BNE 

♦1123/ 

ll 3E- 

A2 

00 


LDX 

*♦00 

1140- 

EE 

59 

10 

INC 

♦1059 \ 

1143- 

AD 

59 

10 

LDA 

♦1059 J 

1146- 

DO 

03 


BNE 

♦114B I 

1148- 

EE 

5A 

10 

INC 

♦105A V 

11 4B- 

EE 

5B 

10 

INC 

♦105B 7 

114E- 

AD 

SB 

10 

LDA 

♦105B / 

1151- 

DO 

03 


BNE 

♦1156 / 

1153- 

EE 

5C 

10 

INC 

♦ 105C 

1156- 

E8 



INX 


1157- 

E0 

03 


CPX 

#♦03 

1159- 

DO 

E5 


BNE 

♦ 1140 

115B- 

4C 

9B 

10 

JMP 

♦ 109B l 

115E- 

00 



BRK 


115F- 

00 



BRK 


1160- 

00 



BRK 


1161- 

00 



BRK 


1162- 

00 



BRK 


1163- 

00 



BRK 


1164- 

00 



BRK 


1165- 

00 



BRK 


1166- 

00 



BRK 


1167- 

00 



BRK 


1168- 

00 



BRK 


1169- 

00 



BRK 


116A- 

00 



BRK 


116B- 

00 



BRK 


116C- 

00 



BRK 


116D- 

ao 



BRK 


116E- 

00 



BRK 


116F- 

00 



BRK 


1170- 

A2 

00 


LDX 

♦ ♦00 ^ 

1172- 

BD 

40 

12 

LDA 

♦1240,X 

1175- 

48 



PHA 


1176- 

BD 

31 

15 

LDA 

♦1331,X 

1179- 

9D 

40 

12 

STA 

♦1240,X 

117C- 

68 



PLA 


117D- 

9D 

31 

15 

&TA 

♦1531,X 

1180- 

ES 



INX 

i 

1181- 

E0 

0 3 


CPX 

*$03 / 

11 Bo¬ 

DO 

ED 


BNE 

$1172 j 

ll 85- 

A9 

05 


LDA 

#$05 ( 

1187- 

8D 

6 0 

10 

STA 

$1060 / 

118A- 

4C 

3E 

11 

JMP 

$ ll3E / 

118D- 

00 



BRK 

J 

118E- 

0 0 



BRK 


118F- 

00 



BRK 


1190 - 

AD 

62 

10 

LDA 

$1062 

1193- 

DO 

ID 


BNE 

$1182 ] 


EE 77 10 
AD 77 10 
C9 5(3 
DO 05 
A 9 05 


go*T 
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CSRITE 


5 PRINT •THIS PROGRAM PLACES A TOTAL. OF 50 0 NAMES ON DISC » 
TEN NAMES IN STRICT DISORDER" 

7 PRINT t PRINT 
10 DIM A$(10,50) 

15 PRINT 'LOADING NAMES TO ARRAY* 

20 FOR I - 1 TO 10 

30 ON I GOTO 510,520,530,540, 550 , 560 ,57 0,580,590,600 
50 FOR J = 1 TO 50 
60 A$(I,J> = B$ 

65 PRINT B$J" ■; 

70 NEXT ,J 
75 NEXT I 

80 PRINT " 

81 D$ = C H R $ (4) 

82 PRINT D$J"OPEN NAM1" 

83 PRINT D$»"WRITE NAM.1 " 

90 FOR J = 1 TO 50 

100 FOR I = 1 TO 10 
110 PRINT A $ < I» J > 

115 NEXT I 

116 NEXT J 
200 PRINT "FF" 

217 PRINT D$J"CLOSE NAM1" 

34 0 GOTO 690 

510 B$ - "PESTERJOHN" 

515 GOTO 50 

520 B$ = "ALBERTSON" 

525 GOTO 50 

530 B$ = "JOHNSMITH" 

535 GOTO 50 

540 B$ = "JASONCLARK" 

545 GOTO 50 

550 B$ = "THORERICKS" 

555 GOTO 50 

560 B$ ® " JONLODEDAY “ 

568 GOTO 50 

57 0 B$ •= " MACMATINS “ 

575 GOTO 5 0 

580 B$ « "LESLIECARE" 

585 GOTO 50 


59 0 8$ = 
595 GOTO 

60 0 B$ = 
605 GOTO 
690 END 


'WORKLESS" 
5 0 

■ALECKSON" 

50 


0 0 
0 0 

AD 40 10 
f 0 0 3 


$ :i 0 6 0 

i l l BA (V 
VI0 64 to. 


y ‘n*r t*** 

% y*s. 




25 



6/11/'03 


MMM 


SORTS 


C*NAMNUMi 
D 
D 

2 PRINT "THIS PROGRAM PLACES 500 NAMES ON DISC IN STRICT DISORDER WITH AN 
ATTACHED 'STRING NUMBER' WITH EACH ONE* 

7 PRINT i PRINT 
10 DIM Ai dO »50 ) 

15 PRINT "LOADING NAMES TO ARRAY" 

20 FOR I = 1 TO 10 

30 ON I GOTO 510»520*530»5AOf550r560»570»580»590*600 
50 FOR J = 1 TO 50 
AO Aid*J) = Bi 
65 PRINT Bit" • » 

70 NEXT J 

80 NEXT I 

81 Di = CHRi (A) 

85 N* = "NAMNUM" 

88 PRINT • 

90 PRINT D*;"OPEN■IN* 

95 PRINT Di#"WRITE"#Ni 
97 PRINT 500 
100 FOR J = 1 TO 50 

105 FOR I = 1 TO 1.0 

110 PRINT Aid*J) 

1AO PRINT STRi <K> 

150 K = K + 1 
160 NEXT I 
170 NEXT J 

210 PRINT Dil'CLOSE"»Ni 

3A0 GOTO 690 

510 B$ = "PESTERJOHN" 

515 GOTO 50 

520 B$ = "ALBERTSON" 

525 GOTO 50 

530 Bi = "JOHNSMITH" 

535 GOTO 50 

5A0 Eli * "JASONCLARK" 

5A5 GOTO 50 . 

550 Eli « "THORERICKS" 

555 GOTO 50 

560 B$ = "JONLOVEDAY" 

568 GOTO 50 

570 Eli = "MACMATINS" 

575 GOTO 50 

580 Bt = "LESLIECARE" 

585 GOTO 50 

590 Eli = "WORKLESS" 

595 GOTO 50 

600 Eli = "ALECKSON" 

605 GUIQ 50 
690 END 


26/11/"S3 


Resort 


LOMEMJ A6AA 
DIM Ni(501)*Ri(501) 

PRINT "THIS PROGRAM IS TO SORT NAMES WITH RELATED STRING DATA" 
PRINT J PRINT t PRINT 
Di = CHRi (A) 

Ni = "NAMNUM" 


30 

PRINT Dii 

"BLOAD SUPSORT 

A0 

PRINT Dii 

"OPEN"INi 

50 

PRINT Dii 

"READ"»Ni 

60 

INPUT A1 


70 

Al = Al - 

1 

80 

FOR I = t 

) TO Al \ 

90 

INPUT Ni(I) 

91 

IF I > 9 

THEN 9A 


92 Si = "00" + STRi (I) 

93 GOTO 98 

9A IF I > 99 THEN 97 

95 Si = "0" + STRi <I> 

96 GOTO 98 

97 Si = STRi (I) 

98 Ni(I) = Ni<I) + Si 

99 INPUT Ri(I) 

100 NEXT I 

120 PRINt Di#"CLOSE"»Ni 
122 PRINT "I •;I 
125 PRINT "SORTING" 

130 CALL A086 

135 FOR K = 0 TO A1 

170 PRINT Ni<K) # " "* 

180 NEXT K 

182 PRINT 1 PRINT 

185 Di = CHRi < A > 

20 0 PRINT Di # "OPEN"»N* 
202 PRINT Dii"WRITE"IN* 


PRINT A2 
FOR I = 0 TO A1 

L = LEN (Nidi ) 

LI = L - 2 

L2 = L - 3 

L.2i = MIDi <Ni (I) * LI * 3) 
Ni(I) = MIDi <Nid)»l*L2) 
L.2 = UAL ( L.2 ♦ ) 

PRINT Ni(I) 

PRINT Ri<L2) 

NEXT 

PRINT Di{"CLOSE"»Ni 
PRINT " 

END 


OuoLd 3 ajl. 


oiuK. 

Q - . 


yJkjL cx>^ • 






SHOOTOUT 


Shootout is a game requiring 
fast reflexes and keen eyesight. 
You are the fastest gunslinger 
in the west, and have been 
challenged by the Mexican gun- 
fighter, El Ppa (amazing what 
some people’s names spelt 
backwards translate as). His 
face (he don’t look real mean, 
but he’s quick on the trigger) 
appears on the screen. After a 
short pause the word DRAW 
also appears, with a beep if the 
easy game has been selected, 
without it the hard game is indi¬ 
cated. 

When this happens press any 
key to fire. If you were quick 
enough, you win that shootout. 
If not, well, you get another 
chance (you can have up to 10 
chances) unless that was the 
last battle. Your scores and his 
are totalled and the winner is 
announced. 

El Ppa can be slowed down 
by increasing the number in line 
230 or sped up by decreasing 
it. 


Tony Humfrey 
Parkes NSW 



O ONERR GOTO 1 

10 HOME : GAMES - O: SHOOT = O: DEAD » 0 
20 VTAB 1 

30 FOR A - 1 TO 40: PRINT "_"?: NEXT 
40 VTAB 111 FOR A - 1 TO 40: PRINT "^"f: NEXT 

SO VTAB 3: HTAB 16: FLASH : PRINT "SHOOTOUT": NORMAL : VTAB 3: PWINT ■ 

YOU ARE THE FASTEST GUNSLINGER IN THE WEST(OR EAST,FOR THAT MATTER)A 
ND YOU HAVE BEEN CHALLENGED BY THE MEXICAN GUN-FIGHTER EL PPA."? 

60 PRINT -YOU HAVE TO BEAT HIM IN AGUNFIGHT OR LOSE YOR TITLE AS THE BES 

T GUNSLINGER!-: VTAB 13: HTAB 14: INVERSE : PRINT "INSTRUCTIONS": NORMAL 
: PRINT : PRINT " WHEN EL PPA DR^WS HIS GUN,YOU HAVE 1 SECOND IN W 
HICH TO DRAW YOUR OWN GUN BY PRESSING ANY KEY- 

70 PRINT "IF YOU BEAT HIM MORE THAN HALF THE TIMESYOU PLAY HIM,YOU WILL 

BE HERALDED AS THEWINNER": PRINT : INPUT "HOW MANY SHOOTOUTS(UP TO T 
EN)->"JSHOOT: IF SHOOT > 10 THEN 70 

71 HOME : INPUT "HARD GAME <Y/N)"?D* 

80 REM GEANHD 

90 C = INT ( RND (1) ♦ 10) ♦ 100 

100 HOME : INVERSE : VTAB 8: HTAB 18: PRINT " ": VTAB 8: HTAB 21: PRINT 

110 VTAB 10: HTAB 20: PRINT " ": VTAB 11: HTAB 19: PRINT ". .■ 

120 VTAB 12: HTAB 17: PRINT " ": VTAB 12: HTAB 23: PRINT " " 

130 VTAB 13: HTAB 18: PRINT " 

140 VTAB 6: NORMAL : HTAB 16: PRINT " _"; FOR V * 7 TO 15: VTAB 

: HTAB 13: PRINT "I": VTAB V: HTAB 23: PRINT "I": NEXT V: VTAB IrS: WTA*.) 

16: PRINT "_• 

130 FOR A - 1 TO C 

160 IF PEEK ( - 16384) > 127 THEN 310 

170 NEXT A 

180 V = INT ( RND (1) * 20) ♦ 1 

190 H - INT ( RND (1) * 36) ♦ 1 

200 IF V > « 6 AND V < =16 THEN 180 

210 VTAB V: HTAB H 

213 IF LEFT* (D*,l) = "Y" THEN INVERSE .* PRINT "DRAW": NORMAL : GOTO 2 
30 

220 INVERSE : PRINT "DRAW": NORMAL: R2R INSERT CTRl-G INTO "MAW 
230 FOR B * 1 TO 10 

240 IF PEEK ( - 16384) > 127 THEN 270 

230 NEXT B 

260 HOME .* PRINT "BANG ! YOU’RE DEAD": DEAD = DEAD ♦ l: GET A*: GET A«: GOTO 
290 

270 FOR T - 1 TO 1300: NEXT T: HOME : PRINT "YOU GOT HIM!!":GAMES - GAME 
S ♦ 1 

280 GET F*: GET F* 

290 FOR M * 1 TO 1300: NEXT : IF DEAD ♦ GAMES » > SHOOT THEN 330 

300 GOTO 80 

310 FOR S = 1 TO 100:D = PEEK ( - 16336): NEXT S 

320 HOME : VTAB 12: INVERSE : PRINT "YOU TRIED TO CHEAT,BUT YOU DIDN’T W 



IN. ■: 

NORMAL : 

GET A*: GET S*: GOTO 80 





330 

HOME 

: PRINT "HE WON ")DEAD)" GAMES:YOU 

WON ' 

’ 5 GAMES?" 

GAMES": FOR A = 


1 TO 

1500: NEXT 






340 

IF DEAD > GAMES 

THEN 380 





330 

IF DEAD = GAMES 

THEN 400 





360 

IF DEAD < GAMES 

THEN 410 





3^0 

END 







380 

hom£ 

: VTAB 9: 

HTAB 17: PRINT "EL PPA": 

VTAB 

10: HTAB 

17: PRINT " 

'L 


P"! 

; vtab ii: 

HTAB 17: PRINT "P P": 

VTAB 

12: HTAB 

17: PRINT " 

'P 


L": 

VTAB 13: 

HTAB 17: PRINT "APP LE": 

VTAB 

2: PRINT 

"WHO DO WE 

SWF 


PORT- 

•WE SUPPORT 

THE ONLY-" 





390 

GOTO 

420 







400 HOME : PRINT "IT IS A TIE!WE DEMAND A REMATCH!": FOR A > 1 TO 1300: NEXT 
: GOTO 10 

410 HOME : PRINT "_": PRINT : PRINT 

" WE KNEW YOU COULD DO IT FOR US": 

420 FOR A = 1 TO 3000: NEXT : HOME : PRINT "ANOTHER GAME,PODNER(Y/N)->«; 

: INPUT Y*: IF LEFT* <Y*,1) = "Y* THEN GOTO 10 
430 END 




‘WORMS’ is a game where you, called ‘High Scores’. To do this, 
as a worm, must destroy your type in the text file creator and 
enemy by totally blocking him run it. The disk will whirl a few 
so that he is forced to hit either seconds and then stop. Now, 
one of your segments, his seg- type in the ‘Worms’ program 
ments, the obstacles or the bor- and save. The program is now 
der. Your ‘worm’ starts off in a ready to run. 
random position on the right I made the game on a black 
hand side of the screen and and white monitor and so I used 
there is a short delay before the colours that suited it. However, 
action starts - this is so that you if you want to change the colour 
can pick up where you are. of the border and obstacles, the 
Once the game starts you have command is on line 50. The col- 
to complete ten rounds to win. our of the computer worm is 

The game incorporates a fea- controlled by line 73 and your 
ture that allows you to change worm’s colour is controlled by 
the controlling keys to suit your line 225. You might want to 
preference. The only key not al- change line 55 as well, but 
lowed to be used in this way is DON’T change the COLOR = 
the right arrow key. 0 on that line. 

Before you can start this 
game you must first create the 

text file that’ “Worms’ uses. It is Michael Lee 

Torrens ACT 



1 TEXT : HOME : SPEED- 233 

2 REM INIT THE VARIABLES 

3 REM 

3 u* - "T-:d* = "G":r* * "H":l* = "F*: dim ci2ii: dim c»(2ii 

7 REM 

8 REM GOTO INSTRUCTIONS 

9 REM 

10 GOSUB 2060 
20 GOTO 2030 

40 X * l:Y - INT ( RND (1) * 37 + 1)!X1 = 38:Y1 * INT ( RND (1) * 37 ♦ 1> 

41 A - 4!Z =» 3 

43 VTAB 21: PRINT "YOU ARE ON LEVEL "G 
30 GR : COLOR- 15 
51 FOR Q = 1 TO G 

32 X2 - INT ( RND (1) * 26) ♦ 7:Y2 = INT ( RND (1) * 40):Z2 - INT ( RND (1) 
* 40>:A2 = INT ( RND (1) # 26) + 7:B2 = INT ( RND (1) * 26) ♦ 7:C2 - INT ( 
RND (1) * 40): IF (Z2 < 2) OR <Z2 > 37) OR (Y2 < 2) OR (Y2 > 37) THEN GOTO 5 

2 

33 VLIN Y2,Z2 AT X2 

34 HLIN A2,B2 AT C2: NEXT 

33 VLIN 0,39 AT 0: VLIN 0,39 AT 39: HLIN 0,39 AT 0: HLIN 0,39 AT 39: COLOR- 5 
: plot x ♦ i,y: color- 2 : plot xi - i,yi: for b > i to iooo: next q: color- o: 

PLOT X ♦ 1,y: PLOT XI - 1, Y1 
56 GOTO 70 

60 A = INT ( RND (1) # 4 ♦ 1) 

70 T = INT ( RND (1) * 100 ♦ 1): IF T ( G THEN GOTO 60 

73 COLOR- 3 

73 IF A - 1 THEN Y = Y - 1 

80 IF A - 2 THEN Y - Y ♦ 1 

85 M - PEEK ( - 16336) 

90 IF A - 3 THEN X = X - 1 
95 M « PEEK ( - 16336) 

100 IF A - 4 THEN X - X ♦ 1 

110 IF SCRN( X,Y) < >0 THEN GOTO 1000 

120 PLOT X,Y 

122 REM 

123 REM GET THE DIRECTION KEYS (HUMAN) 

127 REM 

130 IF PEEK ( - 16384) > 127 THEN GET A* 

140 IF (A« - U*> AND (Z < >2) THEN Z - 1 

130 IF (A* - D*) AND (Z < >1) THEN Z = 2 

160 IF (AS - LG) AND (Z < >4) THEN Z - 3 

170 IF (A* - R«) AND (Z < >3) THEN Z - 4 

173 S - S ♦ 10 ♦ G: VTAB 22: PRINT "SCORE-*S" 

180 IF Z - 1 THEN Y1 - Y1 - 1 

190 IF Z ■ 2 THEN Y1 - Y1 ♦ 1 

200 IF Z - 3 THEN XI - XI - 1 

210 IF Z - 4 THEN XI - XI ♦ 1 

220 IF SCRN( XI,Yl) < >0 THEN :P - l: GOTO 2000 

228 COLOR- 2 

230 PLOT XI,Yl 

240 M - PEEK ( - 16336) 

990 GOTO 70 

1000 IF A - 1 THEN Y - Y ♦ 1 

1001 IF A - 2 THEN Y - Y - 1 

1002 IF A - 3 THEN X - X «■ 1 

1003 IF A = 4 THEN X - X - 1 

1010 IF (A - 1) OR (A - 2) THEN GOTO 1030 

1020 IF (A - 3) OR (A - 4) THEN GOTO 1300 

1023 REM 

1023 REM CHECK TO SEE IF THE COMPUTER HAS HIT A WALL AND TO TURN THE WORM IF 
NEED BE 
1027 REM 

1030 B - SCRN( X - 1,Y):C - SCRN( X ♦ 1,Y> 

1040 IF (B - 0) AND (C - O) THEN A - INT ( RND (1) * 2 ♦ 3): GOTO 70 

1030 IF B - O THEN A ■ 3: GOTO 70 

1060 IF C - 0 THEN A - 4: GOTO 70 

1070 GOTO 2000 

1300 B - SCRN( X,Y - 1):C - SCRN( X,Y + 1) 

1310 IF (B - O) AND (C - O) THEN A - INT ( RND (1) * 2 ♦ 1) 

1320 IF B - O THEN A - 1: GOTO 70 

1330 IF C - O THEN A - 2: GOTO 70 

1340 GOTO 2000 
1800 REM 

1900 REM IF ANY WORM GETS HIT THE PROGRAM COMES HERE. 

1905 REM 

2000 M - - 16336:M » PEEK (M) ♦ PEEK (M) ♦ PEEK (M) + PEEK <M> ♦ PEEK (M 

) ♦ PEEK (M) ♦ PEEK (M) ♦ PEEK (M) + PEEK (M) ♦ PEEK (M) ♦ PEEK (M) ♦ P 

EEK (M) ♦ PEEK (M>: FOR Q - 1 TO 2300: NEXT 

2010 TEXT : HOME 

2020 IF P - 1 THEN GOTO 2030 

2022 REM 

2023 REM IF YOU HAVE BEATEN THE COMPUTER,COME HERE. 

2024 REM 

2025 IF G - 10 THEN INVERSE : PRINT "CONGRATULATIONS": PRINT : P 
RINT "YOU HAVE SUCESSFULLY DRIVEN AWAY ALL PREDITORS.YOUR SCORE IS "S: NORM 
AL : FOR B * 1 TO 3000: NEXT : GOTO 3000 

2029 INVERSE : PRINT "YOU HAVE WON": NORMAL 

2030 G = G ♦ l: PRINT : PRINT "YOU ARE NOW ON LEVEL "G: PRINT "WATCH OUT I’M G 
OING TO ATTACK! ! • ■ 


28 






TO 2300: NEXT : HOME : GR : COLOR- 15: GOTO 40 


2032 REM 

2033 REM IF YOU WON BUT NOT DONE TEN ROUNDS THEN REPEAT FROM HERE. 

2037 REM 
2040 FOR Q 

2042 REM 

2043 REM IF YOU LOSE YOUR GROUNDS COME HERE 
2047 REM 

2030 PRINT "YOU HAVE LOST YOUR GROUNDS ON LEVEL "G: PRINT ■YOUR SCORE IS "S: 
FOR Q - 1 TO 1000: NEXT Q 

2031 W - l: GOTO 3000 

2032 REM GOTO 3000 TO HALL OF FAME. 

2033 POKE - 16366,0 

2033 PRINT : INPUT "DO YOU WANT TO PLAY AGAIN?";A*: IF A« - "Y" THEN S - 0:G 

- o:hi » o:p - o: gosub 2230 : goto 2030 

2036 PRINT "GOODBYE AND THANKS FOR THE LAND!!!": END 
REM 

REM INTRODUCTION 
REM 

HOME : VTAB 9: HTAB 18: INVERSE : PRINT "WORMS": NORMAL 
HTAB 13: PRINT "PROGRAMED BY" 

HTAB 13: PRINT "MICHAEL--LEE" 

PRINT : HTAB 4S : PRINT ■ 

1 TO 1000: NEXT 


FOR 


PRINT 


WORMS 


HOME : INVERSE 
NORMAL 

RINT : PRINT "YOU ARE A WORM FIGHTING FOR POSSESION OFA PIECE OF FERTIL 


PRINT "YOUR ENEMIES WILL TRY TO RUN YOU OUT OF IT AND YOU MUST S 


2036 
2060 
2063 
2070 
2080 
2090 
2100 
2120 
2140 
2143 
2130 * 

E LAND" 

2160 PRINT 
TOP THEM" 

2170 PRINT : PRINT "THE LONGER YOU STAY ALIVE THE MORE POINTS YOU GET,HO 

WEVER TO SUCCESSFULLY WIN THE GAME YOU MUST FIGHT THE ENEMY TEN TIMES" 

2180 PRINT : PRINT "AS YOU PROGRESS THE ENEMY WILL GET MORE INTELLIGENT AND T 
HE !****. IN WORE CHALLENGING" 

2190 PRINT : FLASH : PRINT "GOOD LUCK": NORMAL 

VTAB 22: PRINT "<<<<<<<PRESS-ANY-KEY-TO-CONTINUE>>>>>>>>" 

IF PEEK ( - 16384) < 128 THEN GOTO 2210 
POKE - 16368,0 

PRINT "THESE ARE YOUR COMMANDS" 

PRINT " "U*"=UP" 

"D*"-DOWN" 

"L*"-LEFT" 

"R*"-RIGHT" 

INPUT "DO YOU WANT TO CHANGE THESE COMMANDS?"|88: VTAB 1 


HOME 
NORMAL 
PRINT : 
PRINT : 
PRINT : 
PRINT : 


INVERSE 
PRINT 
PRINT " 
PRINT " 
PRINT " 
PRINT : 


2200 
2210 
2220 
2230 
2240 
2230 
2260 
2270 
2280 

2: PRINT 

2282 IF LEFT* (Q*,l) - "Y" THEN VTAB 3: HTAB 3: GET U*: PRINT U*: VTAB 5: H 
TAB 3: GET D*: PRINT D*: VTAB 7: HTAB 3: GET L*! PRINT L*: VTAB 9: HTAB 3: GET 
R*: PRINT R*: VTAB 12*. INPUT "ARE THESE ALRIGHT?";Q*: IF LEFT* (Q*,l) - "N" 
THEN ©• - "Y": GOTO 2282 

2300 VTAB 12: PRINT "<<<<<<<<<<<<< PRESS ANY KEY>>>>>>>>>>>>>>": VTAB 12: GET 
Q»: PRINT Q*: HOME : RETURN 
2310 REM 

2320 REM OPEN THE HIGH SCORE FILE AND READ IT. 

2330 REM 

3000 IF W < >1 THEN S = S ♦ 1000 

3010 A* * CHR* (4) 

3020 PRINT A*"OPEN HIGH SCORES" 

PRINT A*"READ HIGH SCORES" 

FOR G - 1 TO 20 
INPUT C(Q) 

INPUT C*(Q) 

NEXT 

PRINT A*"CLOSE HIGH SCORES":Z = O 
REM CHECK TO SEE IF SCORE IS BEATEN 
FOR Q - 1 TO 20: IF Z - 1 THEN GOTO 3075 
- C(Q) THEN Z = i:ML - <9: FOR 
I - C*(W): NEXT W 


20 TO i 


STEP - 1:C < 


IF YOU BEAT A HIGH SCORE THEN TYPE IN AND SAVE NAME. 


THEN PRINT "YOU HAVE BEATEN A HIGH SCORE PLEASE TYPEIN 
--- i N p UT C*(ML) :C(ML) - S 


3030 
3040 
3030 
3060 
3063 

3070 

3071 

3072 

3073 IF S 
(W):C*(W ♦ 

3075 NEXT i 

3076 REM 

3077 REM 

3078 REM 
3080 HOME : IF 

YOUR NAME- 

3100 REM 

3140 REM SORT NAMES AND PUSH THEM ALL DOWN IF SCORE IS BEATEN.ACTUALLY 3073 
IS THE REAL SORT. 

3130 REM 

3160 PRINT A*"OPEN HIGH SCORES" 

3170 PRINT A*"WRITE HIGH SCORES" 

3180 FOR 0 - 1 TO 20 
3190 PRINT C ( G)) 

3200 PRINT C*(Q) 

3210 NEXT 

3220 PRINT A*"CLOSE HIGH SCORES" 

3230 w - o:j * o: home 

3240 PRINT "<<<<<<<<<H-A-L-L--OF--F-A-M-E>>>>>>>>>>" 

3230 VTAB 2: PRINT > NAMES SCORES" 

3260 FOR Q = 1 TO 20: PRINT Q")"C*(Q) 

3270 VTAB Q ♦ 2: HTAB 27: PRINT C(Q) 

3280 NEXT 

3290 POKE - 16368,0: PRINT "MNNNNMNNNMNNNPRESS ANY KEYNNNNNNMttNNMNN• 

3300 IF PEEK ( - 16384) < 128 THEN GOTO 3300 

3310 GOTO 2033 






GRAPHICS DRAWS 



SaMpte Pattern 


Graphics Drawer enables the 
user to draw graphics on Hi- 
Res Page 2 using the Apple’s 
keyboard. 

The controls are as follows: 

I - draw line upwards 
J - draw line left 
K - draw line right 
M - draw line downwards 
O - draw line diagonally up - 
right 

U - draw line diagonally 
down - left 

, - draw line diagonally down 
• right (NB all the above keys 
are for movement.) 


C - colour (0&4 - black, 1 - 
green, 2 - violet, 3&7 - white, 
5 - orange, 6 - green) 

D - Increment - how many 
dots plotted per keypress. 

An example of Graphics 
Drawer has been included to 
show its capabilities. There is 
also another program - Sample 
Pattern Routines which has 
some interesting routines. 


Tony Humfrey 
Parkes NSW 


10 X - 139:Y « 

11 xi - x:yi - y 

20 GET M* 

30 IF M « ’I" THEN 
33 IF M - -O’ THEN 
X - > 279 THEN 


HGR2 :COL « 3:INC - 10 


Y - 

Y - 
279 


INC: 

inc:x 


Y - <0 THEN Y - 0 

X ♦ INC: IF Y » <0 THEN Y 


40 

43 


if m > 
if m > 


so 

ss 


70 


IF M* 
Y « 
IF M« 


73 IF Ml * 
00 IF Ft* - 
01 HCOLOR- 
82 GOTO 11 
1000 POKE 


•M- THEN Y » Y 

•,• THEN Y - Y 

< 0 THEN X « l 

‘K* THEN X ■ X 

‘N‘ THEN X - X 

> 191 THEN Y > 

•J" THEN X « X 

*U‘ THEN X - X 

O THEN Y » 0 
■D" THEN 2000 
"E" THEN PRINT 
■C" THEN 1000 

col: hplot xi,yi to x,y 

14300,0: POKE 


inc: 

inc:x 

inc: 

INC: Y 
191 
INC: 
INC: Y 


> 191 THEN 
INC: IF Y * 


> 279 THEN 
if*c: IF X » 


< 0 THEN X 
INC: IF X ■ 


= 191 
191 THEN 


- 279 
279 THEN 


< O THEN X 


: END : REM I CTRL-G 3 


14303,0: HOME : V/TAS 12: PRINT 
GET COL.* *OKE - 14299,0: POKE - 14304,0: GOTO 11 
2000 POKE - 14300,0: POKE - 14303,0: HOME : VTAB 12: PRINT 
>•: GET INC: POKE - 14299,0: POKE - 14304,0: GOTO 11 


Routines for Graphics Drawer 


HOME : PRINT ‘PRESS A NUMBER TO RUN PROGRAMS 1 THRU 0": GET 

ON A GOTO 10,100,200,300,400,300,400,700,800,900 

HOME 


lOO 
110 
120 
123 
200 
205 
210 
220 
230 
240 
300 
303 


: - INT ( RND <1> * 38) 
’ = INT ( RND (1) # 23) 
HTAB X: VTAB Y: PRINT ‘ 
GOTO 10 

FOR A * 0 TO 233 
PRINT CHR* (A){ 

NEXT A 

GET A*: GOTO 1 
HGR2 

HCOLOR- 3 
Y * INT ( RND (1) 


: - int 

HPLOT X,Y 
GOTO 210 
HGR2 

HCOLOR- 3 
S|0 T ■ TNT ( RND 
3*0 X - INT ( RND 
330 B - INT ( RND 
340 A » INT ( RND 
350 HPLOT X, Y 
333 HPLOT TO A, B 
340 GOTO 310 
400 HGR 
440 
413 
420 
423 
430 


RND (1) * 


FOR A - 1 TO 7 


190) 

233) 


* 190) 

* 234) 

* 190) 

* 234) 


4 OR A ■ 4 THEN GOTO 410 


HCOLOR- A 

FOR 0 - 1 TO 279 

HPLOT B.O TO B,140 


440 NEXT B 
430 HGR : NEXT A 
440 GOTO 1 
300 HGR2 

310 FOR A - 1 TO 7 

313 IF A » 4 THEN GOTO 310 

320 HCOLOR- A 

323 FOR B - 0 TO 191 

330 HPLOT O,B TO 279,B 

540 NEXT B 

330 H0R2 : NEXT A 

340 GOTO 1 

400 H0R2 :H - INT ( RND (1) * 7) ♦ 1 

403 IF M • 4 THEN 400 

410 HCOLOR- H 

413 FOR B - 0 TO 191 

420 HPLOT 0,B: HPLOT TO B,0 

423 NEXT B 

430 GOTO 400 

700 HGR2 

740 X - INT < RND (1) * 279) ♦ 1 

720 FOR Y - 0 TO 191 

721 HPLOT X,Y 

723 NEXT Y 

730 GOTO 710 

800 HGR2 :H - INT ( RND (1) * 7) ♦ 1 

803 IF H - 4 THEN 800 

809 X - o:y - O 

810 HCOLOR- H 

815 HPLOT X,Y: HP 4 .OT O, Y TO X,0 

020 X « X ♦ t!Y ■ Y ♦ 1! IF X > 279 THEN X - 279: IF Y 
: GOTO 810 


191 THEN Y - 191 


30 


COPY 


This program prevents copying, 
and, in fact, looking at programs 
on your disk. It uses the RWTS 
subroutine to change the direc¬ 
tory file location. It is left to you 
to decide how to encompass 
this into your own greeting pro¬ 
gram. The basic idea of this 
program makes it quite flexible 
and it can be easily expanded 
as I will describe later. 

Bytes Accessed: 

$303 - Volume Number 

$304 - Track Number 

$305 - Sector Number 

$306 - Command (01-Read 

02-Write) 

If you want to look at any sec¬ 
tor on your disk or in fact when 
you set up your copy protector 
system, you just change the 
above four locations as required 
and type 315G. The sector read 
or written will be from $2000 - 
$20FF. This buffer can be 
changed by altering locations 
$308(low-byte) and $309 (high- 
byte). 

Take a newly initialised disk 
and type in the program below 
and save it as the greeting pro¬ 
gram. 

10 HOME 

20 ?CHR$(4);“BRUN DC” 30 
?CHR$(4) ;“CAT ALOG” 
CALL-151 and type in the hex 
DC program as given and 
bsave it as the file name in 20. 


PROTECTOR 


Using the 315G procedure 
above, copy the directory of 
track $11 -sector $OF into track 
$22-sector $OF. You now have 
a real directory in track $11 and 
a false one in track $22-sector 
$OF. When the disk is booted 
the program will change the 
VTOC so that a catalog will 
show the false directory. In fact, 
DOS can not load a program 
unless it is contained in the di¬ 
rectory. To get the real directory 
back you simply CALL-151 then 
333G. 

The system I use is slightly 
different to the above and was 
first placed on a half full disk. 
The difference is that the greet¬ 
ing program is different for each 
directory but has the same file 
name. 

The false directory is exactly 
the same as the above but the 
real directory points to a dif¬ 
ferent track/sector list. 

The easiest way to accom¬ 
plish this is to save the real di¬ 
rectories hello program as nor¬ 
mal. Then save the false direc¬ 
tories hello program on another 
disk or under a new file name 
on the disk you are copy pro¬ 
tecting. Now transfer the false 
directory containing the files, 
HELLO and DC, into track $22- 
sector $OF by the “315G” 
method, using track $22-sector 


— HEX DUMP - 


02EA: A9 

01 

8B 

03 

03 

8E 

OC 

03 

A9 

11 

8D 

04 

03 

A9 

00 

8D 

05 

03 

20 

ID 

03 

60 

01 

60 

01 

01 

01 

11 

OF 

1 1 

03 

00 

20 

00 

00 

01 

00 

01 

60 

01 

00 

01 

EF 

D8 

A9 

03 

AO 

00 

20 

D9 

03 

60 

20 

58 

FC 

20 

15 

03 

AO 

01 

A9 

22 

99 

00 

20 

A9 

02 

8D 

OC 

03 

20 

15 

03 

60 

AO 

11 

8C 

04 

03 

M.0 

00 

8C 

05 

03 

AO 

01 

8C 

OC 

03 

20 

15 

03 

AO 

01 

A9 

11 

99 

00 

20 

A9 

02 

8D 

OC 

33 

20 

15 

03 

60 




$OE as the track/sector list for 
the hello program. Write the 
track/sector list into the data 
buffer, using track $22-sector 
$OD as the first and only file lo¬ 
cation, and save this into track 
$22-sector $OE. Then load the 
actual tokenised sector (NB - 
the above hello program oc¬ 
cupies only one sector), from 
the disk used to save the false 
hello program, into the data buf¬ 
fer so that it can be saved into 
track $22-sector $OD. 

When the disk is booted the 
false directory will be used and 
the catalog will show the two 
files, HELLO and DC. This al¬ 
lows you to still retrieve the real 
directory even if the disk has 
not been booted. 

Also, it is important to adjust 
the track-bit maps to show the 
sectors you have used with the 
RWTS. All the relative informa¬ 
tion can be gained in the DOS 
manual under storage of files. 
For the system to work, both 
hello programs must first BRUN 
DC or the false directory must 
first BRUN DC and the VTOC 
must point to the false directory 
while you are not using the disk. 
This is done by BRUNing DC 
for the first and second cases or 
booting the disk in the first 
case. 

Michael Werner 
(Send us your address, 
Michael!) 



APPLESOFT COMMAND 



With this short routine, you can 
type BASIC commands using a 
single key with the control key. 
The keys and keywords I have 
chosen are shown in the table 
at the end of the program. 

BASIC commands begin at 
$D0D0 and occupy consecutive 
locations to $D25E. The first 
seven keys (@ to F) access 
commands on page $D0. The 
keys G to Y (excluding H, M 
and U) access keywords on 
page $D1, whilst Z accesses a 


keyword on page $D2. 

The number of keys which 
access pages $D0, $D1, and 
$D2 could be changed altering 
the numbers in locations $0333 
and $033D respectively. 

The keywords could be 
changed by substituting the 
least significant byte of the ad¬ 
dress of the new command for 
one of those on the list. 

Enter the monitor and type in 
the program beginning at 
$0300. Save the program by 
typing: 


BSAVE ACE, A$300,L$91 

To run the program type 
BRUN ACE from disk or 
BLOAD ACE followed by CALL 
768. If you begin the program 
from the monitor with 3006, you 
must re-enter Applesoft by typ¬ 
ing 3D0G, as typing Control-C 
will produce CALL. Before run¬ 
ning a program in Applesoft hit 
the reset button to revert to the 
normal input routine. 

The program works by pas¬ 
sing all input through ACE. If 


DCmLL 151 
«. :.9o 


j 3 nO- 

A9 

D2 

85 

IB 

A9 

03 

85 

ID 

Ii 308- 

85 

39 

A9 

76 

85 

1C 

A9 

00 

H310- 

85 

19 

A9 

19 

85 

38 

4C 

EA 

U318- 

03 

20 

4A 

FF 

A5 

19 

DO 

2E 

D320- 

A 5 

45 

20 

IB 

FD 

85 

45 

C9 

>328- 

9B 

90 

04 

20 

3F 

FF 

60 

29 

1)330- 

7F 

A8 

C9 

07 

BO 

06 

C6 

IB 

D338- 

C6 

IB 

DO 

06 

C9 

1A 

BO 

02 

1)340- 

C6 

IB 

B1 

1C 

FO 

20 

85 

06 

H34B- 

E6 

19 

A9 

00 

85 

07 

A5 

45 

I) 3 So¬ 

A4 

07 

A5 

06 

85 

1A 

B1 

1A 

li 358 - 

C9 

80 

BO 

08 

09 

80 

E6 

07 

1)360- 

85 

45 

DO 

C7 

85 

45 

A9 

00 

>368- 

85 

19 

A9 

D2 

C5 

IB 

FO 

04 

1)370- 

E 6 

IB 

DO 

F8 

FO 

B5 

EF 

D3 

>7 78- 

D6 

F9 

DA 

E9 

DE 

9 3 

00 

9A 

1)380- 

56 

4F 

90 

00 

49 

29 

17 

10 

>383- 

>370- 

09 

3 E) 

A4 

EF 

00 

64 

25 

C7 

A9 


0800 

1 


TTL 

"APPLESOFT COMMAND ENTRY (ACE)" 

0800 

2 

* BY JOHN GALLAGHER. FEB.83 


0300 

3 


ORG 

*300 


0300 

4 


OBJ 

*800 


0006 

5 

ASTR 

EPZ 

*06 

;TEMP.STORE A REG. 

00o7 

6 

CHRCNT 

EPZ 

*07 

;KEYWORD CHAR.COUNT 

<I)i * 1A 

7 

WRDADD 

EPZ 

* 1A 

;STORE KEYWORD ADDRESS 

O01C 

8 

TBLADD 

EPZ 

*1C 

!STORE LOOKUP TBL ADDRESS 

0019 

9 

WRDEND 

EPZ 

*19 

;KEYWORD END FLAG 

0038 

10 

INHQOK 

EPZ 

*38 

;INPUT HOOK 

0045 

11 

ASAVE 

EPZ 

*45 

;A REG.STORE 

0 319 

12 

START 

EQU 

*319 

jINPUT ROUTINE 

o32E< 

13 

RETURN 

EOU 

*32B 


0 32F 

14 

NXTWRD 

EQU 

*32F 

5 NEXT KEYWORD 

0 34E 

15 

NXTCHR 

EQU 

*34E 

;GET NEXT CHAR. 

o 366 

16 

NXTKEY 

EQU 

*366 

;PREPARE FOR NEXT KEY 

o 7/6 

17 

LKTBL 

EQU 

*376 

;LOOKUP TABLE BEGINS 

0 :ea 

18 

EXIT 

EQU 

*3EA 

;EXIT THRU I/O UPDATE 

I DIB 

19 

KEY IN 

EQU 

*FD 1 B 

;READ KEYBOARD 

F F4A 

20 

IOSAVE 

EQU 

*FF4A 

(SAVE REGISTERS 

f F 3F 

21 

IOREST 

EQU 

*FF3F 

;RESTORE REGISTERS 


23 * INITIALIZATION 

24 * 



ii i 

A9 

D2 


25 


LDA 

#*D2 

;HIGH PAGE KEYWORD ADDRESS 

3.i >2 

85 

IB 


26 


STA 

WRDADD+1 


.*•».) 4 

A9 

03 


27 


LDA 

/START 


;u6 

85 

ID 


28 


STA 

TBLADD+1 


3' )0 

85 

39 


29 


STA 

INHOOK+1 


30 A 

A9 

76 


30 


LDA 

#LKTBL 


30C 

85 

1C 


31 


STA 

TBLADD 


70E 

A 9 

On 


32 


LDA 

#*00 


31 0 

85 

19 


33 


STA 

WRDEND 

!CLEAR WORD END FLAG 

71 2 

A 9 

19 


34 


LDA 

#START 


314 

85 

33 


35 


STA 

INHOOK 


316 

4C 

EA 

03 

36 


JMP 

EXIT 

(EXIT THRU I/O UPDATE 

319 




37 

* START 

INPUT ROUTINE 


719 

20 

4A 

FF 

38 


JSR 

IOSAVE 


31 C 

A5 

1 9 


39 


LDA 

WRDEND * 

; IF NOT END OF WORD 

31E 

DO 

2E 


40 


BNE 

NXTCHR 

(GET NEXT CHARACTER 

320 

A5 

45 


41 


LDA 

ASAVE 


722 

20 

IB 

FD 

42 


JSR 

KEY IN 


’.:5 

85 

45 


43 


STA 

ASAVE 


327 

C9 

9B 


44 


CMP 

#*9B 

;CHECK FOR CTRL.KEY 

329 

90 

04 


45 


BCC 

NXTWRD 

5 IF CTRL GET KEYWORD 

32B 




46 

► RETURN 




32B 

20 

3F 

FF 

47 


JSR 

IOREST 

; RESTORE RETURN 

72E 

60 



48 


RTS 



72F 




49 

* NXTWRD 




32F 

29 

7F 


50 


AND 

#*7F 

!REMOVE MSB 

371 

A£1 



51 


TAY 



332 

C9 

07 


52 


CMP 

#*07 

;IF NOT e-F CONTINUE 

3 34 

BO 

06 


53 


BCS 

1 


376 

C6 

IB 


54 


DEC 

WRDADD+1 

:IF @-F THEN 

338 

C6 

IB 


55 


DEC 

WRDADD-t-1 

(DEC TO *D0 

33 A 

DO 

06 


56 


BNE 

>2 


37C 

C9 

1A 


57 

1 

CMP 

#* 1A 

;IF Z LEAVE AT *D2 

3 3E 

BO 

02 


58 


BCS 

2 


340 

C6 

IB 


59 


DEC 

WRDADD+1 

;IF G-Y DEC TO *D1 

342 

B1 

1C 


60 

“2 

LDA 

(TBLADD),Y 

(LOOKUP INDEX 

344 

FO 

20 


61 


BEQ 

NXTKEY 

;IF KEY NOT USED RETURN 


32 




ENTRY 


CTRL is pressed, the key fol¬ 
lowing it is used to generate an 
index to obtain the least signif¬ 
icant byte of the address of the 
BASIC command which is 
stored in a table beginning at 
$0376. This byte is then stored 
in $1 A. 

The most significant byte is 
stored in $1B and has an initial 
value of $D2. This is de¬ 
cremented to $D0 if keys @ to 
F are pressed and to $D1, if 
any other key apart from Z is 
pressed. 


BASIC commands are stored 
with the MSB set only for the 
last character, and this is used 
to clear the word end flag ($19). 
A character counter ($07) pro¬ 
vides the index to obtain each 
character from the keyword 
after its address has been lo¬ 
cated. 

The initialisation routine sets 
the input hook to the beginning 
of the ACE input routine at 
$0319. 

J. Gallagher 
Paradise Park 


0346 

85 

06 

62 

STA 

ASTR 

; STORE LO BYTE KEYWORD ADDRESS 

0348 

E6 

19 

63 

INC 

WRDEND 

5 SET WORD END FLAG 

034A 

A9 

00 

64 

LDA 

#*00 


034C 

85 

07 

65 

STA 

CHRCNT 

; CLEAR CHR COUNT 

034E 



66 

* NXTCHR 



034E 

A5 

45 

67 

LDA 

ASAVE 


0350 

A4 

07 

68 

LDY 

CHRCNT 


0352 

A5 

06 

69 

LDA 

ASTR 

5GET LO BYTE KEYWORD ADDRESS 

0354 

85 

1A 

70 

STA 

WRDADD 


0356 

B1 

1A 

71 

LDA 

(WRDADD),Y 

;GET NEXT CHARACTER 

0358 

C9 

80 

72 

CMP 

#*80 

;last character ? 

035A 

BO 

08 

73 

BCS 

>3 


035C 

09 

80 

74 

ORA 

#*80 


035E 

E6 

07 

75 

INC 

CHRCNT 


0360 

85 

45 

76 

STA 

ASAVE 


0362 

DO 

C7 

77 

BNE 

RETURN 


0364 

85 

45 

78 

-'3 STA 

ASAVE 


0366 



79 

* NXTKEY 



0,366 

A9 

00 

80 

LDA 

#*00 


0368 

85 

19 

81 

STA 

WRDEND 

; CLEAR WORD END FLAG 

036A 

A9 

D2 

82 

LDA 

#*D2 


036C 

C5 

IB 

83 

'■5 CMP 

WRDADD+1 


036E 

FO 

04 

84 

BEQ 

>4 


0370 

E6 

IB 

85 

INC 

WRDADD+1 

; INC TO *D2 

0372 

DO 

F8 

86 

BNE 

<5 


0374 

FO 

B5 

87 

•4 BEQ 

RETURN 


0376 



88 

* LOOK UP TABLE 


0376 

EF 


89 

HEX 

EF 

@=TEXT 

0377 

D3 


90 

HEX 

D3 I 

A=FQR 

0378 

D6 


91 

HEX 

D6 

B=NEXT 

0379 

F9 


92 

HEX 

F9 

C=CALL 

037A 

DA 


93 

HEX 

DA 

D=DAT A 

037B 

E9 


94 

HEX 

E9 

E=READ 

037C 

DE 


95 

HEX 

DE 

F=INPUT 

037D 

93 


96 

HEX 

93 

G=GO TO 

037E 

00 


97 

HEX 

00 

H NOT USED 

037F 

9A 


98 

HEX 

9A 

I = IF 

0380 

56 


99 

HEX 

56 

J=FLASH 

0381 

4F 


100 

HEX 

4F 

K=INVERSE 

0382 

90 


101 

HEX 

90 

L=LET 

0383 

00 


102 

HEX 

00 

M NOT USED 

0384 

49 


103 

HEX 

49 

N=NORMAL 

0385 

29 


104 

HEX 

29 

0=H0ME 

0386 

17 


105 

HEX 

17 

F-HPLOT 

0387 

10 


106 

HEX 

10 

Q=HCOLOR- 

0388 

09 


107 

HEX 

09 

R=HGR2 

0389 

A4 


108 

HEX 

A4 

S—GO SUB 

038A 

EF 


109 

HEX 

EF 

T=THEN 

038B 

00 


1 10 

HEX 

00 

U NOT USED 

038C 

64 


1 11 

HEX 

64 

V=VTAB 

038D 

25 


1 12 

HEX 

25 

W=HTAB 

038E 

C7 


1 13 

HEX 

C7 

X -poke: 

038F 

A9 


1 14 

HEX 

A9 

Y=RETURN 

0390 

3B 


1 15 

HEX 

3B 

Z=PEEK 

0391 



1 16 

END 




#•***■ 


END OF ASSEMBLY 







TYPE 


Type is a game designed to in¬ 
crease your typing skills on the 
Apple. It clears the screen and 
flashes a letter on the screen in 
a random place. You are given 
a certain amount of time in 
which to press that key (time is 
selected at the beginning of the 
program by the user). H you do 
not press the key within that 
time you go onto ‘he next key 
(10 to 50 letters, selected by 
you at the beginning of the’pro¬ 
gram). If you press the incorrect 
key, you are not penalised but 
must still press the correct key. 

This program could easily be 
adapted for use on other 
micros. The statement in ine 
1600 simply clicks the speaker. 
The timing may have to be ad¬ 
justed on faster or slower 
micros (this was done on a lie). 
This is in the for-next loops. 

The statement in 1300 simply 
qets a character or checks if 
one has been pressed. It can 
be changed to an INKEY$ 
statement. ‘Inverse’ makes all 
characters printed after it ap¬ 
pear black on white (instead of 
white on black) until the Nor¬ 
mal’ statement. 

All the rems can be omitted. 

Tony Humfrey 
Parkes NSW 


1 REM_, 

2 REM. ! 

, JBEM : type ; 

4 REM : • 

3 RfiM 5 BY T.Hum+rey . 

6 REM ! I 

7 REM _' 

8 REM 

9 REM_ 

.IQ REM Member o-f the 

41 R&M 

12 -*EM Parkes High School 

13 REM 

14 REM COMPUTER- 


lOO HOME : ONERR GOTO 2700 
200 INRUT "No. OF GAMES(10 TO 50 

300 IF ^GAMES < 10 OR GAMES > 50 THEN 

400 RRINT 1 PRINT ( PRINT I PRINT 
• PRINT : INPUT "SPEED <0.3 
SECONDS TO 3 SECONDS) ->"5 

spd; if spd < 0<5 0R SPD > 5 

THEN 400 

300 FOR G = 1 TO GAMES 

600 HOME 

700 V - JW.T. t RND <1> * 241 ♦ 1 

800 H = INT < RND (1) * 40) ♦ 1 

900 C = INT ( RND (1) * 61) ♦ 34 

•nno c* = CHR* <C) 

1100 VTAB v: HTAB HI PRINT C* 
i700 FOR A = 1 TO SPD * 100 

1300 IP PEEK < - 1^*4) > 12’ THEN 
GET R* 

1400 IP R* = CS THEN 2000 
1500 NEXT A 
1600 POR B = 1 TO 100 
1700 A = PEEK < - 16336' 

1800 NEXT B 
1900 NEXT G 
1930 GOTO 2250 

2000 PRINT "HIT": FOP T - 1 TO 4 
00: NEXT T 
2100 I = I 4 1 

HOME ? INVERSE = VTAS HTAB 

14: PRINT "SPEED * SPD; C/P/ 

9": NORMAL 

2^00 VTAB 11: PRINT "YOU GOT "? 1 

.. OUT OF ";games;" right-: print 

2400 IF I = > GAMES ‘ (GAMES ' 

3) THEN PRINT "GREAT GOING' 

FOR F = 1 TO 1000: NEXT : 

2300 I^I ^GAMES - (GAMES / 5) AMD 
T = > GAMES / 2 THEN PRINT 

"FAIRLY GOOD": FOR F - 1 TO 

1000: NEXT : goto 2650 
2400 IF I < GAMES I * THEN RR.N- 
-NEED PRACTICE": FOR F - 1 T0 
1000: NEXT : GOTO 2650 

2200 

loot IF V* - -N- ™ EN END : 

GOTO 2700 

12S00 REM INSERT CTRL.^G IN LINE 2000 








LORO OF THE RHGS 






This is a program written for a 
48K Apple 11+ aimed at restor¬ 
ing peace to Middle Earth. It is 
a long listing and to save typing 
it out, I will put it on disk for 
everyone who sends me a disk 
and five dollars. All proceeds 
will go to the Parkes High 
School Computer Club. Please 
mark all parcels “Computer 
disks - keep away from magne¬ 
ts”. Write care of Your Com¬ 
puter and it will be passed on. 

Shaun Humfrey 
Parkes NSW 








O TEXT : HOME 

2 REM LORD OF THE RINGS BY SHAUN HUMFREY 
5 HOME CLEAR 


7 M 

= < 

0 




10 

HTAB 12: 

INVERSE 

: PRINT 

20 

VTAB 5: 

PRINT : VTAB 5: 

II 

35 

IF 

N$ = 

"LEGOLAS" 

THEN 

75 

37 

IF 

N* = 

"BILBO" THEN 80 


40 

IF 

N$ = 

"BOROMIR" 

THEN 

85 

42 

IF 

N$ = 

"SAURON" 

THEN 5 


44 

IF 

N$ = 

"GANDALF" 

THEN 

5 V 

45 

IF 

N$ = 

"THEODEN" 

THEN 

5 

46 

IF 

N$ = 

"ARAGORN" 

THEN 

5 

47 

IF 

N$ = 

"FRODO" THEN 5 


48 

IF 

N$ = 

"GALADRIEL" THEN ! 

49 

GOTO 100 







70 PRINT : PRINT "GREETINGS GIMLI,SON OF GLOIN. M : FOR I = 1 TO 2000: NEXT I: GO 


50 

R$ = "ELF":RS* 

55 

R$ = "DWARF" :r: 

57 

R* = "HOBBIT":l 

60 

R$ = " HUMAN ":R: 

70 

PRINT : 

PRINT 

TO 

55 


75 

PRINT : 

PRINT 

0 



80 

PRINT : 

PRINT 

I 

: GOTO 

57 

85 

PRINT : 

PRINT 



w um 



100 PRINT : PRINT : PRINT "(1) DWARF": PRINT : PRINT "(2) ELF": PRINT : PRINT " 
(3 

) HUMAN": PRINT : PRINT "(4) HOBBIT": PRINT : PRINT : PRINT 
110 PRINT "ENTER RACE - > " ; : GET R 
120 IF R > 4 THEN 100 
126 IF P < 1 THEN 100 
130 ON R GOTO 55,50,60,57 

199 REM INSTRUCTIONS 

200 HOME 

210 PRINT " WELCOME TO RIVENDELL,";N$;".": PRINT : PRINT "YOU HAVE BEEN CHOSEN 
T 

O REPRESENT ": PRINT : PRINT RS$;" IN THE COMPANY SELECTED TO ": PRINT : PR 

INT 

"DESTROY THE RING OF SAURON.": FRINT : PRINT : PRINT "DO YOU WANT MORE INFO 
RM 

ATION ABOUT THE": PRINT : PRINT "THE RING ? GET A$ 

220 IF A$ = "Y" THEN 250 
225 IF A$ = "N" THEN 400 
230 GOTO 200 

249 REM ABOUT THE RING 

250 HOME : PRINT " THE RINGS OF POWER WERE FORGED IN THE": PRINT : PRINT "CRACK 
O 

F DOOM BY SAURON,EVIL LORD OF": PRINT : PRINT "MORDOR.THESE RINGS CORRUPT T 
HE 

SPIRIT": PRINT : PRINT "AND DECAY THE BODY.KNOWING THIS HE": PRINT : PRINT 

GAVE NINE RINGS TO MEN,SEVEN TO DWARVES": PRINT 
260 PRINT "AND KEPT THE RULING RING TO CONTROL THE": PRINT : PRINT "OTHERS.THRE 
E 

GOOD RINGS WERE MADE BY".* PRINT : PRINT "ELVES, BUT THEY TOO ARE AFFECTED BY 
T 
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HE": PRINT : PRINT "ONE RULING RING." 

270 PRINT : PRINT " MEN AND DWARVES WITH THE RINGS FELL": PRINT : PRINT "INTO T 
HE 

SERVICE OF SAURON." 

273 VTAB 24: PRINT "PRESS ANY KEY TO CONTINUE";: GET A* 

277 HOME : PRINT "THE NINE MEN WITH RINGS WORSHIPED”: PRINT : PRINT "SAURON.ONL 
Y 

THREE OF THE SEVEN ": PRINT : PRINT "DWARF-LORDS CAME TO SAURON.THE OTHERS" 
! PRINT 

: PRJNT "WERE KILLED BY DRAGONS OR DEMONS." 

279 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A* 

280 HOME : PRINT " SAURON LOST THE RULING RING IN BATTLE": PRINT : PRINT "AGAIN 
ST 

A RACE OF MEN FROM ACROSS THE": PRINT : PRINT "GREAT SEA.CENTURIES LATER I 
T 

WAS”: PRINT : PRINT "FOUND BY A SMALL BEING CALLED SMEAGOL.": PRINT : PRINT 


HE EVENTUALLY LOST IT AND IT WAS ": PRINT 
290 PRINT "LATER FOUND BY A HOBBIT NAMED BILBO.HIS": PRINT : PRINT "NEPHEW,FROD 
O, 

NOW HAS IT.FRODO IS IN": PRINT : PRINT "YOUR COMPANY AS RINGBEARER." 

300 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A« 

400 HOME 

410 PRINT "ALSO IN YOUR PARTY ARE GANDALF,A ": PRINT : PRINT "POWERFUL WIZARD;A 
RA 

GORN,RIGHTFUL KING ": PRINT : PRINT "OF GONDORJAND FRODO,THE RINGBEARER." 
420 VTAB 21: PRINT "PRESS ANY KEY TO EMBARK ON YOUR": PRINT : PRINT "JOURNEY";: 
GET 

A* 

499 REM THE BEGINNING!!! 

500 HOME 

510 PRINT " YOU EMBARK ON A COLD WINTER MORNING.".' PRINT .' PRINT "YOU WALK MANY 
L 

EAGUES UNTIL" 

520 PRINT : PRINT ’YOU REACH THE ANCIENT AND LONG ": PRINT : PRINT "ABANDONED D 
WA 

RF-KINGDOM OF MORIA WHICH": PRINT : PRINT "FILLS THE INSIDE OF A MOUNTAIN." 

530 PRINT : PRINT "HERE YOU HAVE A CHOICE... WILL YOU GO": PRINT : PRINT "THROUG 

H 

THE REALMS OF MORIA OR GO OVER": PRINT .' PRINT "THE MOUNTAIN VIA A SMALL PA 
TH 

? " 

540 PRINT : PRINT : PRINT "(ENTER M FOR MORIA AND P FOR PATH.) ";: GET D* 

545 PRINT 

550 IF D$ = "P" THEN 600 

555 IF D$ = "M" THEN 300 

560 GOTO 540 

599 REM MOUNTAIN PATH 

600 HOME : PRINT " AS YOU ASCEND THE MOUNTAIN A SNOWSTORM": PRINT : PRINT "STAR 
TS 

.THIS COULD BE WORSE THAN YOU".' PRINT : PRINT "THOUGHT." 

610 PRINT : PRINT : PRINT "ARE YOU SURE YOU WANT TO GO ON ? ";: GET A* 

615 PRINT 

620 IF A* = "N" THEN 520 

625 IF A$ = "Y" THEN 650 

630 GOTO 610 

650 B = INT ( RND (1) * 10) + l: IF B < 3 THEN 670 

660 PRINT : PRINT "THE SNOWSTORM DIES DOWN,AND YOU ": PRINT : PRINT "CONTINUE U 
P 

THE PATH": PRINT : PRINT : PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE 


: GET A* 

662 M = M + 300 
665 GOTO 680 

670 PRINT : PRINT "THE BLIZZARD CONTINUES AND YOU FREEZE": PRINT : PRINT "TO DE 
AT 



v*i 




TO 

680 

RO 

690 

700 

705 

710 

720 

NT 

VO 

NC 

730 

750 

HE 

770 

790 

799 

800 
810 
NS 


H.": PRINT : PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE" GET A*: GO 
9000 

HOME I PRINT "YOU PROCEED UNTIL YOU COME TO A FORK": PRINT : PRINT "IN THE 
AD. " 

PRINT : PRINT "WILL YOU GO LEFT OR RIGHT ? " : GET DS 
IF DS = "L" THEN 720 
IF DS = "R" THEN 750 
GOTO 690 

HOME : PRINT "YOU TAKE THE LEFT PATH.SOON YOU HEAR A": PRINT I PRINT "DISTA 
RUMBLE.YOU LOOK UP TO SEE": PRINT : PRINT "TONNES OF ROCK FALLING TOWARDS 


U.": PRINT .' PRINT "YOUR PARTY HAS BEEN KILLED IN AN": PRINT : PRINT "AVALA 


E. " 

VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AS: GOTO 9000 

HOME : PRINT "YOU TAKE THE RIGHT PATH.YOU WALK DOWN": PRINT : PRINT "THE OT 


R SIDE OF THE MOUNTAIN SAFELY." 

VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AS 
GOTO 1100 
REM MORIA 
HOME 

PRINT "YOU ENTER NORIA SLOWLY.IT IS DARK AND": PRINT : PRINT "THERE IS A SE 


E OF EVIL IN THE AIR.": PRINT : PRINT "THIS COULD BE WORSE THAN YOU THOUGHT 


820 PRINT : PRINT "ARE YOU SURE YOU WANT TO GO ON ? ";: GET AS 
822 PRINT 

825 IF AS = "N M THEN 520 

830 IF AS = "Y" THEN 850 

840 GOTO 820 

850 PRINT : PRINT "GANDALF EMITS A GLOW FROM THE END OF ": PRINT : PRINT "HIS S 
TA 

FF.YOU CAN SEE SIDE PASSAGES TO": PRINT : PRINT "THE LEFT AND RIGHT." 

860 PRINT : PRINT "DO YOU WANT TO EXPLORE A SIDE PASSAGE ?": GET AS 
862 PRINT 

865 IF A* = "Y" THEN 890 

870 IF A$ = "N" THEN 1000 

875 IF A* = "L" THEN 900 

880 IF AS = "R" THEN 950 

885 GOTO 860 

890 PRINT : PRINT "LEFT OR RIGHT ? ";: GET AS 

891 PRINT 

892 IF AS = "L" THEN 900 

894 IF AS = "R" THEN 950 

395 GOTO 890 

899 REM ORC DOOR 

900 HOME : PRINT "YOU WALK DOWN THE PASSAGE AND COME TO A": PRINT : PRINT "A DO 
OR 


905 

910 

912 

915 

920 

N 

925 

LY 

927 

928 


PRINT : PRINT "WILL YOU OPEN IT ? ";: GET AS: PRINT 
IF AS = "N" THEN 920 
IF AS = "Y" THEN 925 
GOTO 905 

PRINT : PRINT "YOU LEAVE THE DOOR AND COME BACK TO THE": PRINT : PRINT "MAI 
HALLWAY.": FOR I = 1 TO 3500: NEXT I: GOTO 1000 

HOME : PRINT "YOU BREAK THROUGH THE DOOR AND ARE": PRINT : PRINT "IMMEDIATE 


CONFRONTED BY A BAND OF ": PRINT : PRINT "ORCS." 
PRINT : PRINT "WILL YOU FIGHT OR RUN ? ";: GET FS 
PRINT 


> 
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IF F* = "R" THEN 945: IF F* = M F" THEN 930: GOTO 927 

HOME : PRINT "ARAGORN DRAWS HIS SWORD AND HEWS AT THE": PRINT : PRINT "ORCS 

IGHTNING LEAPS FROM GANDALF’S": PRINT : PRINT "STAFF,KILLING MANY ORCS.YOU 

ELD YOUR": PRINT : PRINT W$;" SKILLFULLY." 

K = INT ( RND (1) * 25) + l:S = INT ( RND (1) * 10) + 1 

PRINT : PRINT "DURING BATTLE YOU FIGHT VALIANTLY AND": PRINT : PRINT "KILL 

KJ" ORCS." 

IF S < 3 THEN 946 

PRINT : PRINT "EVENTUALLY,YOU KILL ALL THE ORCS.": VTAB 22: PRINT "PRESS AN 

KEY TO CONTINUE";: GET A$ 

PRINT : PRINT 
M = M + 800: GOTO 860 

HOME :S = INT ( RND (1) * 10) +1: IF S < 4 THEN 947 

PRINT "YOU ARE ALL SLAUGHTERED BY THE ORCS": FOR I = 1 TO 3000: NEXT I: GOT 

9000 

PRINT "YOU RUN DOWN THE TUNNEL BACK TO THE": PRINT : PRINT "MAIN HALLWAY": 

I = 1 TO 3000.' NEXT I: GOTO 1000 

HOME : PRINT "YOU ARE CONFRONTED BY A FIRE DEMON,A": PRINT : PRINT "BALROG. 

PRINT : PRINT "WILL YOU FIGHT OR RUN ? GET F* 

PRINT 

IF F$ = “F" THEN 960 
IF F* = “R" THEN 957 
GOTO 950 

C = INT ( RND (1) * 10) + 1 

IF C < 3 THEN 947 

PRINT *. PRINT "THE BALROG CASTS A SPELL, AND YOU CANT": PRINT : PRINT "LEAVE 
HE ROOM." 

PRINT : PRINT "YOU ATTACK THE BALROG WITH YOUR ";W$: PRINT : PRINT "ARAGORN 

EAPS AT THE BALROG’S THROAT." 

IF F$ = "R" THEN 965 

GOTO 970 

PRINT : PRINT ‘THE BALROG CASTS GANDALF INTO AN ABYSS.":GA* = "DEAD" 

GOTO 972 

GA = INT ( RND (1) * 10) +1 

IF GA < 3 THEN 965 
S = INT ( RND (1) * 10) + 1 

IF S < 4 THEN 980 
GOTO 984 

FRINT : PRINT "THE BALROG FIGHTS LIKE A DEMON (WHICH": PRINT : PRINT "IT IS 

AND KILLS YOU ALL.".' PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GE 

A$: GOTO 9000 

PRINT : PRINT : PRINT 

PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: HOME : PRINT "WITH YOUR 

;w*;" YOU WOUND THE": FRINT : PRINT "BALROG IN THE THROAT,KILLING IT." 

M = M + 600 

PRINT : PRINT "ON THE FLOOR YOU FIND A RING.": IF GA$ = "DEAD" THEN 990 
1 PRINT : PRINT "GANDALF SAYS IT IS ONE OF THE LOST": PRINT : PRINT "RINGS OF 

OWER OF THE DWARF-LORDS." 

1 PRINT : PRINT "THE RING IS ONLY TO BE USED IN EXTREME": PRINT : PRINT "EMER 


NCIES.": VTAB 22 
I* = "RING" 

PRINT "PRESS ANY KEY TO CONTINUE";: GET A$ 








1000 HOME : PRINT "YOU NEAR THE EXIT TO MORIA.": PRINT : PRINT “SUDDENLY YOU HE 
AR 

THE BOOM OF DISTANT -: PRINT : PRINT "DRUMS AND ORC ISSUE FORTH FROM THE - : 

PRINT 

: PRINT "EASTERN DOOR." 

1010 IF GAS = "DEAD" THEN 1050 

1020 PRINT : PRINT "GANDALF CASTS A SPELL AND THE EASTERN": PRINT : PRINT "DOOR 
A 

ND NEARBY CEILING COLLAPSE": PRINT : PRINT "KILLING THE ORCS. " VTAB 22: PR 

INT 

"PRESS ANY KEY TO CONTINUE"?: GET AS: GOTO 1100 
1050 PRINT : PRINT "WILL YOU FIGHT OR RUN ? "?: GET FS 
1052 PRINT 

1055 IF FS = "R" THEN 1080: IF FS = "F" THEN 1060: GOTO 1050 

1060 HOME : PRINT "YOU AND ARAGORN FIGHT SIDE BY SIDE": PRINT : PRINT "KILLING 
MA 

NY ORCS.YOUR "?WS?" IS A": PRINT : PRINT "GOOD WEAPON." 

1065 S = INT ( RND (1) * 10) + i:K = INT ( RND (1) * 20) + 1 

1070 PRINT : PRINT "YOU KILL "?K?" ORCS WITH YOUR " ? WS 

1075 IF S < 4 THEN 1079 

1076 M = M + 600 

1077 PRINT PRINT "YOU FINALLY KILL ALL THE ORCS.": PRINT : PRINT : PRINT .* PR 
INT 

"PRESS ANY KEY TO CONTINUE"?: GET AS: GOTO 1100 

1079 PRINT : PRINT "YOU FIGHT VALIANTLY BUT SOON TIRE.": GOTO 1090 

1080 S = INT ( RND (1) * 10) + l: IF S < 3 THEN 1100 

1090 PRINT : PRINT "THE ORCS KILL YOU ALL.": PRINT : PRINT : PRINT : PRINT "PRE 

SS 

ANY KEY TO CONTINUE"?.* GET A*: GOTO 9000 

1100 HOME : PRINT "YOU REST AT THE FOOT OF THE MOUNTAIN TO": PRINT : PRINT "PLA 
N 

YOUR NEXT MOVE." 

1110 PRINT : PRINT "WILL YOU GO THROUGH THE STRANGE FOREST": PRINT .* PRINT "OF 
LC 

THLORIEN TO GET TO GONDOR TO GET": PRINT : PRINT "HELP,OR GO STRAIGHT TO MO 
RD 

OR ?" 

1120 PRINT : PRINT "(ENTER G FOR GONDOR,M FOR MORDOR.)"?: GET DS 
1122 PRINT 

1125 IF DS = "M" THEN 5000 
1130 IF DS = "G" THEN 1500 
1140 GOTO 1120 

1499 REM LOTHLORIEN 

1500 HOME 

1505 PRINT "STRANGE TALES ARE TOLD ABOUT THE FOREST".* PRINT : PRINT "OF LOTHLOR 
IE 

N. " 

1510 PRINT .* PRINT "ARE YOU SURE YOU WANT TO GO ON ? "?: GET A* 

1511 FRINT 

1512 IF AS = "N" THEN 1100 
1515 IF A$ = "Y" THEN 1520 
1517 GOTO 1500 

1520 HOME : PRINT "ELVISH WARRIORS CAPTURE YOU AND TAKE ": PRINT : PRINT "YOU T 
O 

THEIR QUEEN,GALADRIEL.“ 

1525 IF GAS = "DEAD" THEN 1530 
1528 GOTO 1540 

1530 PRINT : PRINT "GANDALF IS ALSO THERE.APPARENTLY,HE ": PRINT : PRINT "SURVI 
VE 

D THE BALROG.HE LOOKS WISE AND ": PRINT : PRINT "MORE DISTANT THAN BEFORE." 
1535 GAS = "" 

1540 PRINT : PRINT "GALADRIEL OFFERS YOU FOOD AND REST": PRINT : PRINT "WHICH Y 
OU 

GRATEFULLY ACCEPT.SEVERAL": PRINT : PRINT "DAYS LATER YOU DECIDE TO LEAVE. 
PRINT : PRINT "GALADRIEL WARNS THAT THERE IS TROUBLE": PRINT : PR T NT - RRFU 









LEAVE ROHAN.* 

2020 VTAB 22: PRINT "WILL YOU GO TO ISENGARD,GONDOR OR": PRINT : PRINT "MORDOR 
? ( 

ENTER I, G,OR M.)";: GET D* 

2030 IF D* = "M" THEN 5000 
2035 IF D* = "G" THEN 4000 
2040 IF D* = "I" THEN 2100 
2050 GOTO 2020 

2099 REM SARUMAN 

2100 HOME .* PRINT " YOU RIDE TO I SENGARD ON HORSES FROM": PRINT : PRINT -ROHAN. 
AB 

OUT 3:00 PM YOU REACH ORTHANC.": PRINT : PRINT "WITH THE FORCES OF ROHAN YO 
U 

SUMMON": PRINT .* PRINT "SARUMAN. HE COMES, WITH A HORDE OF ": PRINT : PRINT " 
MU 

TATED ORCS." 

2110 PRINT : PRINT "WILL YOU FIGHT OR RUN ? ";: GET F* 

2111 PRINT 

2115 IF F* = "R" THEN 2150 
2120 IF F* = "F" THEN 2200 
2130 GOTO 2110 

2150 S = INT ( RND (1) * 10) +1: IF S < 4 THEN 2170 

2155 M = M + 500 

2160 HOME : PRINT "SARUMAN SHOUTS ’ASH KRIMPATUL!’ AND": PRINT : PRINT "FIRE LE 

AP 

S FROM THE GROUND AND KILLS": PRINT : PRINT "YOU.": VTAB 22: PRINT "PRESS A 
NY 

KEY TO CONTINE";: GET A*: GOTO 9000 

2170 HOME : PRINT "THE RIDERS OF ROHAN,AND YOUR COMPANY": PRINT : PRINT "FLEE B 
AC 

K TO ROHAN.": VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A*: HOME : G 

OTO 

2020 

2200 HOME : PRINT "YOU LEAD THE FORCES OF ROHAN INTO": PRINT : PRINT "BATTLE.YO 
U 

KILL "; INT ( RND (1) * 15) + l; M ORCS WITH YOUR": PRINT : PRINT W*J"." 

2210 S = INT ( RND (1) * 10) +1: IF S < 6 THEN 2250 

2220 PRINT : PRINT "SARUMANS ORCS KILL ALL OF YOU.": VTAB 22: PRINT "PRESS ANY 

KE 

Y TO CONTINUE";: GET A*: GOTO 9000 

2230 PRINT ; PRINT "GANDALF FIGHTS SABUMAN AND HESIRDYS HIM..": PRINT : JEJLIMT "T 




HE 

SURVIVING ORCS IMMEDIATELY ": PRINT : PRINT "SURRENDER." 

2252 M = M + 1000 

2253 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A*: HOME 

2260 PRINT " YOU ENTER SARUMAN’S ROOM IN SEARCH OF": PRINT : PRINT "ANYTHING US 
EF 

UL.ON THE DESK YOU SEE ": PRINT : PRINT "A GLASS SPHERE." 

2265 PRINT : PRINT "WILL YOU GET IT ? GET A$ 

2267 PRINT 

2270 IF A$ = "Y" THEN 2300 

2230 IF A$ = "N" THEN 2400 

2290 GOTO 2265 

2300 HOME : PRINT "YOU GET THE SPHERE AND SHOW IT TO ": PRINT : PRINT "GANDALF. 
HE 

SAYS IT IS A SEEING STONE,A": PRINT : PRINT "PALANTIR,OR BASICALLY A CRYST 
AL 

BALL. " 

2305 P* = "SPHERE" 

2310 PRINT : PRINT "WILL YOU USE IT ? ";: GET A$ 

2315 PRINT 

2320 IF A* = "Y" THEN 2350 

2325 IF A* = "N" THEN 2400 

2330 GOTO 2310 

2350 P = INT ( RND (1) * 10) +1: IF P ( 4 THEN 2370 

2352 M = M + 200 

2355 HOME : PRINT "YOU GAZE INTO THE PALANTIR AND SEE": PRINT : PRINT "A GIANT 
SP 

IDER IN A SMALL TUNNEL.THIS": PRINT : PRINT "VISION FADES AND IS REPLACED B 
Y 

THE": PRINT : PRINT "CRACK OF DOOM.BEFORE IT IS SAURON.HE IS": PRINT : PRIN 
T 

"WAITING FOR YOU." 

2360 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A*: GOTO 2400 

2370 HOME : PRINT "YOU LOOK INTO THE PALANTIR AND SEE": PRINT : PRINT "SAURON.H 

E 

SEES YOU AND SUDDENLY A LIGHT": PRINT : PRINT "STABS OUT OF THE PALANTIR AN 
D 

KILLS YOU": VTAB 22 

2375 PRINT "PRESS ANY KEY TO CONTINUE";.* GET A*: GOTO 9000 

2400 HOME : PRINT "YOU RIDE BACK TO ROHAN,THINKING OF THE": PRINT : PRINT "DAY’ 
S 

EVENTS.YOU FINALLY DECIDE TO ": PRINT : PRINT "LEAVE ROHAN." 

2410 VTAB 22i PRINT "WILL YOU GO TO GONDOR OR MORDOR ? ";: GET D$ 

2420 IF D$ = "M" THEN 5000 
2425 IF D$ = "G" THEN 4000 
2440 GOTO 2410 

3999 REM GONDOR 

4000 HOME 

4010 HOME : PRINT "YOU ARRIVE AT GONDOR IN THE EVEN I NG. YOU" .* PRINT : PRINT "ARE 
G 

RANTED AN AUDIENCE WITH THE": PRINT : PRINT "STEWARD OF GONDOR.HERE ARAGORN 

P 

UTS ": PRINT : PRINT "FORTH HIS CLAIM TO THE THRONE OF ": PRINT .* PRINT "GO 
ND 

OR. " 

4020 B = INT ( RND (1) * 10) + 1: IF B < 5 THEN 4050 

4025 M = M + 500 

4030 PRINT : PRINT : PRINT "HE IS DISBELIEVED AND YOU ARE BANISHED": PRINT : PR 
INT 

"FROM THE KINGDOM.YOU DECIDE TO GO TO": PRINT : PRINT "MORDOR WITHOUT THE A 
ID 

OF GONDOR." 

4040 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AGOTO 5000 

4050 PRINT : PRINT "THE STEWARD KNEELS AND PLEDGES HIS": PRINT : PRINT "ALLEGIE 

NC 

E TO ARAGORN.": PRINT *. PRINT " DAYS LATER. GONDOR TS RFSF TGFn. THF" : PRTNT : 



R 
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"FORCES OF SAURON HAVE GATHERED.THERE": PRINT : PRINT "ARE MILLIONS OF ORCS 


OWE- WARGS (GIANT": PRINT : PRINT "WOLVES),AND SOME DRAGONS.": PRINT : PRINT 


4060 PRINT "PRESS ANY KEY TO CONTINUE";: GET A$ 

4065 HOME : PRINT "WILL YOU FIGHT OR SURRENDER ? "J: GET F$ 

4070 IF F* = "F" THEN 4100 
4080 IF F* = "S" THEN 6050 
4090 GOTO 4065 

4100 HOME : PRINT "YOU HELP DEFEND GONDOR.A DRAGON SWOOPS": PRINT : PRINT "LOW 
AN 

D YOU KILL IT WITH YOUR ";W$?".": PRINT : PRINT "YOU KILL MANY WARGS AND OR 

cs 

BUT YOU": PRINT : PRINT "ARE TIRING." 

4105 M = M + 700 

4110 S = INT ( RND (1) *10) +1: IF S < 7 THEN 4150 

4120 PRINT : PRINT "GONDOR IS SOON LAID IN RUBBLE BY THE": PRINT : PRINT "INVAD 
ER 

S.A WARG LEAPS AT YOUR THROAT.": PRINT : PRINT "YOU ARE DEAD.” 

4130 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A$ 

4140 GOTO 9000 

4150 PRINT : PRINf "YOU CAPTURE THE LEADER OF THE INVASION.": PRINT : PRINT "IT 
I 

S A HUMAN WARRIOR.YOU TELL HIM TO": PRINT : PRINT "MAKE HIS FORCES RETREAT 
AN 

D THEY DO.": PRINT : PRINT "YOU’VE WON THE BATTLE!!" 

4160 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE"?: GET A$: HOME 

4165 IF P* = "SPHERE" THEN 4170 

4166 GOTO 4200 

4170 PRINT "BACK IN THE THRONE ROOM YOU DECIDE TO": PRINT : PRINT "USE THE PALA 

NT 

IR. " 

4172 M = M + 200 

4175 P = I NT ( RND (1) * 10? +• 1: IF F \ 3 THEN 4 ISO 

4177 PRINT : PPTNT "YOU SEE WHOLE ARMIES STILL LEFT IN ": PRINT : PRINT "MGRDOR 


THEN 4 ISO 


41 78 VTAB 27: PRINT "FPFSS ANY KEY TO CONTINUE’: GET 

4179 GOTO 4200 

4180 PRINT : PRINT "*'0U SEE SAURON.HE SEES YOU AND MUTTERS": FRINT ; PRINT SOM 


HING.IMMEDIATELY YOU ARE DEAD." 

4190 VTAB 22: PRINT "^PESS ANY KEY TO CONTINUE";: SET A*: GOTO 9000 

4200 HOME : PPDK "YOU DECIDE THAT A SMALL PARTY IS ALL": PRINT : PRINT "THAT C 

AN 

BE USED TO DESTROY THE RING.": PRINT : FRINT 'THE ORIGINAL PARTY SETS OUT 

TO 

MOPDOR.": PRINT : PRINT "THE STEWARD RULES GONDOR ' AGAIN. " 

4210 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A$ 

4999 PEM MOPrOP 

5000 HOME : PRINT * YOU HAVE ARRIVED AT THE GATES OF : PRINT . PRINT "NSRDOR.WI 
LL 

YOU GET IN THROUGH THE : PRINT . FRINT GATES OR THROUGH A TUNNEL AT THE" 
: PRINT 

: PRINT "WESTERN EDGE CP MCRDQR 7" 

5010 PPTNT • PPfNT "(ENTER G POP GATE,T FOR TUNNEL.)”;: GET D$ 

5011 PRINT 

5015 IF D* = "G" THEN 5050 
5020 IF D$ = "T" THEN 5200 
5030 GOTO 5010 

5050 IF GAS = "DEAD" THEN 5060 
5055 GOTO 5070 

S060 PRINT : PRINT "HOW CAN WE GET THROUGH LOCKED GATES": PRINT : PRINT "WITHOU 


GANBALF 7* 


FOR I = l TO-5000: NFXT T: GOTO 5010. 


i , 

l* // 







3070 

MO 

5075 

5080 

5090 

E 

AT 
I NT 
EY 

5095 

5100 

00 

5200 

HE 

HE 

I NT 

5210 

5211 
5215 
5220 


5240 

5250 

A 

A 

5260 


5270 

5272 

5275 

5277 

5280 

5290 

LS 

5300 

OB 

RE 

6000 

F 

AL 

6010 
601 1 
6015 
6020 
6025 
6050 
R 

6060 


PRINT : PRINT "GANDALF CASTS A SPELL AND THE GATES": PRINT : PRINT "ARE DE 

LISHED." 

M = M + 2000 

N = INT ( RND (1) * 10) +1: IF N < 2 THEN 5100 

PRINT : PRINT "THROUGH THE GATES RIDES THE NAZGUL.THE": PRINT : PRINT "NIN 

MEN WITH RINGS OF POWER.THEIR": PRINT : PRINT "CAPTAIN SCREAMS AND CHARGES 

THE PRINT : PRINT "COMPANY.THE OTHER EIGHT FOLLOW AND THEY": PRINT : PR 

"SLAY THE WHOLE PARTY.": PRINT : PRINT : PRINT : PRINT : PRINT "PRESS ANY K 

TO CONTINUE"! 

GET A$: GOTO 9000 

PRINT : PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: GOTO 6 


HOME : PRINT "YOU TRAVEL UP A DISUSED TUNNEL LEADING": PRINT : PRINT "TO T 
CRACK OF DOOM.SUDDENLY AN ": PRINT : PRINT "ENORMOUS SPIDER LEAPS OUT OF T 
DARK": PRINT : PRINT "AT YOU.LEGEND SAYS THE SPIDER IS CALLED": PRINT : PR 


"’SHELOB’ AND IS EXTREMELY DANGEROUS." 

PRINT : PRINT "WILL YOU FIGHT OR RUN ? GET F$ 

PRINT 

IF F$ = "F" THEN 5270 
IF F$ = "R" THEN 5240 
GOTO 5210 

HOME :S = INT ( RND (1) *10) +1: IF S ( 3 THEN 5260 

PRINT "THE SPIDER SHOOTS A HUGE WEB AT THE ": PRINT : PRINT "PARTY AND YOU 


RE CAPTURED TO BE EATEN": PRINT 


PRINT "BY SHELOB.": VTAB 22: PRINT "PRESS 


NY KEY TO CONTINUE"?: GET A$: GOTO 9000 
PRINT : PRINT "YOU RUN DOWN THE TUNNEL,TO THE EXIT.": VTAB 22: PRINT "PRES 


ANY KEY TO CONTINUE";: GET A$: GOTO 6000 
HOME : PRINT "ARAGORN AND YOU ATTACK SHELOB.'*: PRINT 
M = M + 500 

C = INT ( RND (l)*10)+l:S= INT ( RND (1) * 10) + 1 

IF C < 3 THEN 5290 
GOTO 5300 

PRINT "GANDALF SHOUTS * ANNON EDHELLEN ’ AND ": PRINT .* PRINT "SHELOB SHRIVE 


AND DIES.": VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: GOTO 6000 
PRINT : PRINT "YOUR ";W$?" DOES TREMENDOUS DAMAGE TO": PRINT : PRINT "SHEL 


’S EYES.FINALLY YOU SHATTER IT’S": PRINT : PRINT "HEAD.": VTAB 22: PRINT "P 


SS ANY KEY TO CONTINUE":' GET A$ 

HOME : PRINT "ONCE IN MORDOR,YOU QUICKLY FIND THE".' PRINT : PRINT "CRACK 0 
DOOM.STANDING BEFORE IT IS": PRINT : PRINT "SAURON,HIMSELF . THE PARTY IS PAR 
IZED": PRINT : PRINT "BY FEAR.” 

PRINT : PRINT "WILL YOU FIGHT OR SURRENDER TO SAURON ?";: GET F$ 

PRINT 

IF F$ = "F" THEN 6100 
IF F$ = "S" THEN 6050 
GOTO 6010 

HOME : PRINT "YOUR PARTY IS TAKEN PRISONER AND THE”: PRINT : PRINT "RULING 


ING IS CONFISCATED." 

IF I* = "RING" THEN 6065 



LORD OF THE 


RINGS 


6062 GOTO 6070 

6065 PRINT : PRINT "THE DWARF RING FROM MORIA IS ALSO”: PRINT : PRINT "TAKEN." 
6070 PRINT : PRINT "BEFORE YOU ARE EXECUTED YOU ARE FORCED": PRINT : D RINT "T-0 
SE 

E SAURON ARISE TO CONQUER" ! PPIMT : PRINT " MI DD'_ E - EARTH. " : PRINT : PRINT : 

PRINT 

"PRESS ANY KEY TO CONTINUE":: GET A*: GOTO 9000 
6100 HOME : IF 1$ = "RING" THFN 6150 
6110 M = M + 5000 
6120 GOTO 6200 

6150 PRINT "YOU REMEMBER THE PING YOU FOUND IN ": PRINT I PRINT "MOPIA.YOU SHCU 

T 

IN A STRANGE TONGUE"! PRINT : PRINT "’NAUR AN EDRAITH AMMEN 1 ’" 

6160 I = INT ( RND (1) * 10) +1 

6165 IF I < 5 THEN 616^ 

6167 PRINT : PRINT "SAURON LAUGHS AT YOU AND BLASTS YOU "I PRINT : PRINT "WITH 

LI 

GHTNING BOLTS.": PRINT ! ®RINT : PRINT "PRESS ANY KEY T 0 CONTINUE";: GET A$ 
: GOTO 

9000 

6169 M = M + 1000 

6170 PRINT : PRINT "AS YOU SAv THIS SAUPCN WITHERS AND ": PRINT ! PRINT "DIES.'.' 

ou 

ARE FREE TO DESTROY THE PING.": PRINT : PRINT : PRINT "PRESS ANY KEY T 0 CO 

NT 

INUE":: GET A$: GOTO 7000 

6200 PRINT "OVERCOMING YOUR FEAR, YOU AND ARAGORN" : PRINT : PRINT " ATTACK SAURON 

. H 

E RETALIATES WITH BOL~S": PRINT : PRINT "OF LIGHTNING." 

6210 IF GA$ = "DEAD" THEN 6230 

6220 PRIN T : PRINT "GANDALF TRIES NAN'' SPELLS TO DESTROY": PRINT : PRINT "SAURC 

N, 

BUT NONE SEEM TO WORK." 

6230 S = TNT ( PND (1) * 15) + 1: IF GA$ - "DEAD" THEN 6240 

6235 IF S < 5 THEN 6259 

6236 M = M + 1000 

6237 GOTO 6250 

6240 IF p < 3 THEN 6259 

6241 M = M + 2000 
624? GOTO 6250 
6250 GOTO 6167 

6259 PRINT 

6260 1^ GA* = "DEAD" THEN 6270 

6265 PRINT "THE COMBINED ATTACK OF ARAGCRN,YOU AND ": PRINT : PRINT "GANDALF IS 

T 

00 MUCH FOR SAURON.HE IS": PRINT : PRINT "DEAD.YOU CAN NOW DESTROY THE RING 


GOTO 6300 





RETURN 

PRINT "TOGETHER YOU AND ARAGORN DEFEAT THE PRINT : PRINT "DARK LORD. WEI- 


DONE. YOU CAN NOW DESTROY": PRINT .' PRINT "THE RING." 


6300 

PRINT 

00 

0 

7000 

HOME 

7010 

PRINT 

7020 

IF 0* 


7025 O = INT ( RND (1) * 10) +1: IF O < 3 THEN 7090 

7027 M = M + 1000 

7030 PRINT : PRINT "YOU GAZE..I.NTQ -THE CRACK OF DOOM AND SEE": PRINT : PRINT "GR 
EE 

N FLAMES AND LAVA WITHIN.YOU TOSS": PRINT : PRINT "THE RULING RING IN AND W 


CH IT MELT.- 

7040 IF .1* = -RING" THEN 7050 
7045 GOTO 7300 

7050 PRINT : PRINT "AS THE RULING RING MELTS,THE DWARF-RING”: PRINT-: PRINT "FR 
OM 

MORIA GLOWS AND DISAPPEARS.": GOTO 7500 

7090 HOME : PRINT "YOU FIND YOURSELF UNABLE TO PART WITH": PRINT : PRINT "THE R 


G. " 

E* = "Y" 

PRINT 

PRINT : PRINT "YOU TAKE OVER THE FORCES OF MORDOR AND": PRINT : PRINT "PRO 


AIM YOURSELF THE NEW DARK LORD": PRINT : PRINT : PRINT "HAIL "?NS;",LORD OF 
VIL.": PRINT .* PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET A*: GOTO 760 


PRINT 

PRINT ! PRINT : PRINT "PRESS ANY KEY TO CONTINUE"?: GET A* 

HOME : PRINT "WELL DONE,"?N$?"." 

PRINT : PRINT : PRINT "YOU ARE A CREDIT TO ";RS$?" EVERYWHERE." 

PRINT : PRINT : PRINT "AS A REWARD,ARAGORN (WHO IS NOW KING OF": PRINT : P 


"GONDOR) GIVES YOU "?M;" GOLD": PRINT : PRINT "FIECES FOR YOUR CONTINUED BR 


ERY. " 

7600 PRINT : PRINT : PRINT : PRINT : PRINT "DO YOU WANT TO PLAY AGAIN ? "?: GET 
A 


IF A* = "Y" THEN 5 
HOME : SPEED= 255: END 
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RADERS 


The object is to enter a maze of 

10 

DIM D<40.40) 

caves, acquire the golden idol 
and return. 

100 

DIM Ci< 13 ) 

Along the way you may pick up 

130 

X = 20 JY = 38 

objects which will help you. For 

160 

HOME t INVCRSE J PRINT " 

example the rope must be used 

PRINT " 

to swing across the crevices 
and the shield is protection from 


" 

the darts. Gold is used to buy 

1/0 

LT = 10 

maps. Torches and elixers fend 
off monsters. 

i90 

TOR I = 2 TO 4*. VTAD II UTAH 1 

On the map black indicates 

220 

NEXT 

a wall and cannot be passed. 

2 SO 

NORMAL 1 VTAD 3i HTAB PRINT 


" : VTAB 


VTAB It HTAB 39 t PRINT H 


When darts are being fired at 
you, defend yourself using Pad¬ 
dle (O) to move the shield. You 
must knock out 4 of the 7 darts. 
When in battle with a monster 
use the key ‘p’ to bash him and 
's’ to shield... 


Mike Bantick 
Mount Beauty Vic 


310 V IAB 71 PRINT " THIS WILL TAKC APPROX'LY 55 SEC. 
340 OTA 1: 10 t PRINT " CREATING MAZE 


460 

4V0 


ir rs •- 

i THEN V = 

20 :s = 

D< V v S ) - 

i ill INT 

< 3 * 

GO Ml 4VO 

rr ps - 

i AND TV =• 

:i THEN 

It TV ^ 

2 TIIFN V 

V • :i 

ir t i - 

3 THFN V 

0 i 1 

II s - 0 

THEN 610 


IT S ~ 3 

V THFN 610 


Tl V - 0 

THEN 0 1 

i 

II V = 3 

V TIIFN 0 - 

30 

GOTO 400 

1 UR I = 

1 TO 40010 

~ INT 

V » C ) » 1 

vr ad ist 

PRINT TAI 

:k i / 

NEXT 

REM PLACE OBJECTS 


i FOR I = 

1 TO 100 


i n = INT 

< 30 # RND 

< 1 ) ) I 

760 

1 D< D y S ) = 

2 I NEXT 


i tor i = 

1 TO 70 


) D = INT 

< 30 * RND 

< 1 ) ) •{ 

850 

> D< D.S ) = 

31 NEXT 


) FOR I = 

1 TO 50 


D = INT 

< 38 * RND 

< 1 )) 1 


1 AND PS = 0 THEN S 


INT <38 * RNP (1)) I It IF D<D»S) > 1 TH 



1000 FOR I 


1 TO 40 


1030 

HEN 

D = INI 
1030 

< 38 * RND < 1 ) ) 1 

1 ss = 

INT 

( 38 * 

RND 

( 1 

)) i i: if 

D< D * S ) > 1 

T 

i052 

n< i ,u > - 

0 









107.0 

IK D y G ) - 

5J NEXT 









1090 

FOR I = 

1 TO 3 0 









1120 

HEN 

d - ini 

1 120 

( 38 * RND < 1 ) ) 1 

:i :s = 

INI 

< 38 * 

RND 

( 1 

>) i :i.: if 

D( ri, c ) > i 

T 

11 30 

TK D > C ) - 

61 NFXT 









1100 

tor i = 

1 TO 3 









J 2 J 0 

HEN : 

D = INI 

i 21 0 

< 38 * RND < 3 ) ) i 

i:s - 

TNT 

( 38 * 

RND 

( 1 

)) : i: i r 

IK D y 0 ) > 1 

T 

1240 

IK D , C ) = 

71 NFXT 









i / 0 

RPri 52 

OFCONDO 









1 200 

11 r - 

FOR t ■ 

- :i n r < 6 

1 TO 200 ID - INI 
* RND ( 1 ) ) 1 0 

( 38 * 

RND 

( i ) 1 ! 

Kr, 

- 

INT ( 38 * 

RND ( j ) ) 

■i 


1 3 7.0 r«< n y c ) = r: next 

127.0 rOR T = ? TO 17.: RFAI1 Ci(I)t NFXT 

'290 DATA GOLD» COm D > TORCII > ROPE > FI. IXFR » OAND * TRADER * MAR TO * FRONT, y WUP > L OPTROPyC 
REVICE 

1420 IIOMF ♦ ON IK X * V ) GOTO i 400,1930 * 1930 » 1 930,1 930 » 1 930 » i 930 . 27 i 0*7000,3/.70 * 7 
6 7 0 v 3 7, 7 0 v 7 4 4 0 

1430 RESTORE 

1430 PRINT : PR I NT i PRINT -"YOU CAN MOOT . UOfO "JIT 

147.0 IF LT < = 0 TI'.FN CND 

1400 NORMAL 
i000 IT ~ 0 


151.0 

IT 

IK X : : 

l » Y ) : 

> 0 

THEN 

PRINT 

: PRINT 

"rAGT"IPF = 

FT 

1540 

IF 

D< X 1 

L , Y ) :: 

:• 0 

THEN 

PRINT 

: PRINT 

" WFOT " : PF -- 

ft 

1570 

IF 

IK X , Y - 

1 ) : 

0 

THEN 

PRINT 

I PRINT 

"NORTH":PF 

- FT 

i7.00 

IF 

IK X » Y -i 

1 ) ; 

0 

THEN 

PRINT 

: PRINT 

"COUTH":rr 

- FT 


17-10 IT PS = 1 AND PF - 1 AND SP = 1 TP.FN PRINT l PRINT "OH • NO i A DFAD FND 
/////SQUISH///////" U P = L.r - INI (5 * RND 

(in-: i: cp = o 

17.30 PRINT : PRINT t PRINT "WHICH / N*E»WvS' "il INPUT At t IF At < > "N" AND A 

t < > "0." AND At < > "C" AND At < > "W" THEN 



print : 

PRINT " 

YOU MUST 

MOVE’ 

• : 

GOTO 

1450 




17,60 

IF 

At = 

"N" 

AND 

IK X , Y - 

1 ) = 

0 

THEN 

PRINT 

1 PRINT "OUCH": 

GOTO 

1450 

1690 

IF 

At = 

"S’* 

AND 

IK X, Y + 

1 ) = 

0 

THEN 

PRINT 

! PRINT "OUCH": 

GOTO 

1450 




21 05 

IP 

Pi = 

"GOLD" TlirN GO - GO 1 

100 

2190 

IT 

Pi = 

"TORCH" THEN UP -- WE H 

1 50 

2200 

IP 

Pi = 

"ROPr" THEN WE - WE i 

30 

2210 

ir 

Pi = 

"ElIXPR" TlirN WE = WE 

1 10 


2270 NEXT 

2290 TOR I « i TO 1000: NEXT t HOME l PRINT " INVENTORY. 

2320 PRINT ; PRINT 

2350 TOR I « 1 TO SOI IP Ai< I > = THEN 2410 
2380 PRINT i PRINT Ai< I > 

2410 NEXT 

2440 IP UP > 500 THrN 2500 

2470 POR I = 3 TO 2000? NEXT 1 GOTO 1420 

2500 PRINT J PRINT "TO HEAVY•♦WHICH DO YOU WANT TO DROP "il INPUT Ail FOR I = 
1 TO 10; IT At < > Ai( I ) THEN NEXT 11 PRINT 

1 PRINT "YOU DONT HAVE "I Ail GOTO 2290 

2530 IT At = "GOLD" THEN GO = GO - 100 

2660 At<I ) == "" 

2690 GOTO 2170 



2710 HOME S PRINT ’*»******»*****»«)t:******♦*#»**»*»*:*)*:***** 


2740 PRINT 
ING POST 

2770 PRINT 

2800 PRINT 

7830 IF GO 

2860 PRINT 

7890 PRINT 

7970 PRINT 

7950 PRINT 

7980 PRINT 

3010 PRINT 

3040 PRINT 

3070 PRINT 

3100 IT A* 

3130 IF At 

3160 GO ^ GO 
0 7001 NFXT 

3170 TV - 7 

3190 TOR I = 

3190 IT FU 

3200 NFXT 

3210 IF At : 

3770 IT At 

3250 IF At 

3780 TOR I = 

3310 NFXT J 

3340 G - X • 

3370 P - X I 

3400 C - Y • 

3430 A - Y •! 

3460 TOR I = 
0 

3490 IF D< I 
3520 COLOR= 
3550 PLOT I 


"* *"l PRINT "# 

*'•: PRINT "* 

*" 

1 PRINT "YOUR TOTAL GOLD =";G0 

=■ 0 THEN PRINT l PRINT "YOU POOR BERGER ." i 

1 PRINT ITEMS FOR GAL " 

i PRINT 

’(A) MAP<lx.100 G/P 

1 PRINT "(B) MAR<7> . 700 G/P 

I PRINT "(C) BACK Or SAND -200 G/P 

1 PRINT "( D ) L IFF. 700 G/P 

l PRINT "(F) NOTHING.= - = G/P 

1 PRINT I PRINT "WHAT IS TliF ONE THING YOU WANT "H 
- "E" THEN 3610 


TRAD 


"A" THEN GO - GO • 1001FY = 11 GOTO 3190 

2001 IF GO < 0 THEN GO = GO I 2001 PRINT "NICE TRY"! FOR I •- 1 T 
GOTO 7710 


1 TO 101 IE At( I ) •-= "GOLD" THEN At( I ) - ""ICO =- I'O 
0 THEN 3710 


> 


- "A" OR At - "P" THEN GR I GOTO 3340 

- "C." THTN Pi - "SAND" 

- "B" TlirN LF - LT I 11 IF LF > 10 THEN LF - 10 

- 1 TO 101 IT At( I ) - "" THEN At( I ) - Bt1 GOTO 3610 

PRINT 1 PRINT "YOUR HANDS WERT FULI (SORRY) "1 GOTO 3610 
61 IF G < 1 THEN G - 1 
61 IF P > 38 THEN P = 38 
61 IT E < 1 THEN E - 1 
61 IF A > 38 THEN A = 38 

= G TO PI FOR U - E TO A1 IF At = "B" THEN COLOR=- P(I»U)I GOTO 355 

,U) > 0 THCN COLORS 51 GOTO 3550 
0 

U1 NEXT U>I1 COL0R= 151 PLOT XtY 




3580 GCT Stl GET Stl TEXT 1 HOME 1 GOTO 3610 


I 











4420 TOR I = 1 TO 200: NEXT 
4450 GOTO 4270 

4400 VTAB 2i: PRINT " ENGAGE. ♦ ♦ 

4510 Zr - INT ( 3 * RND ( 1 ) ) I 11 ON ZF GOTO 4630,4930,5020 

4540 IT SM < 1 TI1FN HOME I PRINT " YOU HAVE nrrEATEn TI!F " »B4l TOR I =• 1 

TO 2000: NCXT 1D<X»Y) -- 1 ; TCXT : HOME : GOTO 

1420 


4570 

Lr 

IT SY < 1 then home 

1 : GOTO 5290 

: PRINT " YOU H.AUC 

BEEN BETEATEB ' 

BAB LUCK! 

'"JLI" =- 

4600 

GOTO 5020 








4630 

color- 0: TOR I - 11 

to 20: 

HLIN 21,26 

AT 

11 NEXT I 




4660 

on on •: 1 








4690 

ir on •- 2 TisrN 4700 








4720 

2 AT 

COLOR:- 0: I5L IN 20,21 
23! VLIN 11,12 AT 24 

AT 20: 

VI IN 13,19 

AT 

211 VI IN 13,15 

AT 2?: 

VI 

IN 11,1 

4730 

GOTO 4010 








4700 

5 AT 

COLOR:- Cl ULIN 20,21 
24 t UL IN 14,15 AT 251 

AT 701 
VI. IN 1 

VI IN 10,19 
7,13 AT 231 

AT 271 VI IN 16,17 
VL IN 

AT 231 

VL 

IN 14,1 


12,13 AT 26 








4 0:1 0 

ir on - 2 Turn on •- o 

: GOTO 

4070 






4040 

rOR I - 1 TO 200: NEXT l GOTO 4540 






4070 

( 

ir CV < > 2 THEN SY 

16336)’. NEXT 

- SY • 

11 FOR I - 

1 

TO 101Kr -- PEEK 

( 49200 ) 

* PEEK 

4900 

GOTO 4540 








4930 

COLOR:- 0: TOR I *- 11. 

TO 201 

HLIN 71,26 

AT 

11 NEXT I 




4960 

COLOR:- 91 HLIN 20,22 

AT 201 

VI IN 13,1.9 

AT 

27 




4990 

GOTO 4540 








5020 

7.2 PEEK ( • 16304): 

IT 27 

- 200 THEN 

CV 

•- 1 




5050 

IE Z7 = 211 THEN cy = 

2 







5000 

IE cy = 1 THEN 5170 








5110 

ir c.y < > 2 then cy 

- O: GOTO 4510 






5140 

COLOR-- 2 : HLIN 26,27 

AT 19 : 

VL IN 13,10 

AT 

26: GOTO 4510 




5170 

COLOR- li: PLOT 27,10 

: HL.TN 

23,26 AT 171 

PLOT 25,17: VL.IN 

14,17 

AT 

241 VL 


IN 12,15 AT 23*. VL IN 12,13 AT 27 

5200 IT Zr = 1 THFN TOR I = 1 TO 10 1 GH = PEEK ( - 16336) I PEEK ( - 16336 ) 
PEEK ( - 49200)1 NEXT ISM = SM - 1 


5230 POKE 


16368,O:CO 


0 






3670 HOME 1 PRINT 


MONSTERS 


3/00 PRINT " ()<)()<) 

3730 PRINT { PRINT 1 PRINT 1 PRINT - PREPARE YOURSEl T AND USE.... 

3760 PRINT J PRINT 1 PRINT " (S) FOR SHIELD 

3790 PRINT t PRINT " (P) TO STRIKE 

3820 PRINT t PRINT "DO YOU WANT TO USE AN ELIXERtOR TORCH " 

3050 PRINT 1 PRINT "TO DlTEND YOURSEl E <E.T OR N ' NONE 7 ) "»: INPUT AtiSh = IN 

T < 14 * RND (5)) -I 31SY - INT (8 * RND <1>) 

I 3 

3000 Di - C.i< D< X * Y ) ) 

3910 IT Ai - "N" THEN 4150 

3940 IT Ai - "r" THEN 4030 

3970 TOR I -• i TO 101 IE Ai< I ) < > "TORCH" THEN NEXT 11 PRINT "YOU MAYN'T GO 

T A TORCH": GOTO 3020 


3900 Ai<I ) - "" 

4000 GOTO 4060 

4030 TOR 1 - 1 TO 101 IE Ai< 1 ) < > "Cl IXrR" THEN NEXT II PRINT "YOU MAYN'T G 

OT AN CITXCR": GOTO 3020 

4040 Ai< I ) ^ "" 


4060 

ENCC 

IT Hi - "UUP" AND Ai ■- "T* 
"ISM - SN • 2 

* THEN PRINT 1 

PRINT 

"TORCH 

LOWERS WUP' 

S CONE ID 

4090 
ISM - 

IT Di - "TRONS" AND Ai - ’ 

CM • 2 

■C" THEN PRINT 

: PRINT "El IXER ACfCCTC 

TRONS " 

4120 

COR I •- 1 TO 2000NEXT 






4150 

GR i COLOR-- 11 YLIN 12v27 

AT 301 YLIN 12i 

>24 AT 

29 



4100 

OLOR- 

YLIN 18,22 AT 281 YLIN 12, 
15: PLOT 28,13 

15 AT 311 YLIN 

12,15 

AT 281 

HI IN 28,29 

AT 27: C 

4210 

HLIN 27,29 AT 201 PLOT 29, 

. 19 






4240 C - 10 


> 


4270 J COL OR- Ot TOR I - 15 TO 27 J HLIN S - 10,8 -I 5 AT II NEXT IS ^ S 1 1 

4300 COLOR-- 6: HLIN S • 10,S - 3 AT 261 ML IN S - 7,S - 2 AT 25t HLIN S - 3,S i 
2 AT 241 YLIN 20,23 AT S • 21 VLIN 19,73*AT S 

• 11 YLIN 10,27 AT S 

4330 YLIN 17,27 AT S ^ 11 YLIN 17,23 AT S + 21 YLIN 15,23 AT S + 31 YLIN 15,23 
AT S + 41 YLIN 15»10 AT S \ 51 HLIN S + 2,S + 

4 AT 271 COLOR= 151 PLOT S + 5,16 

4360 YLIN 21»23 AT S5 PLOT S + 1,21 

43*0 IF S = 15 THEN 4480 















6010 PRINT 1 PRINT i PRINT "YOU MAOC LOOT YOUR "fAt(HD 


6040 ir At< nr) •- "com" then go - go • 100 

6070 A«T< Dr ) - "" J TOR I - 1 TO 20001 NCXT 
6100 GOTO 6250 

6130 Hour 1 PRINT : PRINT " 01! !! NO ... A CRAVICf 

6160 PRINT 1 PRINT "LUCKY YOU HAD THAT PUTT OP ROFT TO" 

6190 PRINT : PRINT "OWING ACROSS WITH." 

6220 Ai< I ) - "" 

6200 l OR I =- i TO 3000! NIXT 
6200 D<X»Y) - 11 GOTO 5 420 
7000 RITi DART 0 

705 0 HOMC ! PRINT * PRINT "<<<<<<<<<<<<<PU1CON DART'i;>>>>>>>>>>>>>>" 

7020 PRINT 1 PRINT 5 P OR I « 1 TO 10! II At< I ) < > “'iliUT I'l" THI N NI XT ! PRIN 
T ! PRINT "01! Ur.Alv. » YOU HAVEN'T GOT A SI!ITT D 

"! GOTO 7000 

7020 Ai<I ) - "" 

7030 GR ! COLOR- 4! TOR I - 0 TO 39 1 111 IN 0*39 AT I! Nf XT ! GUI OR- 6! I OR 1 I - 

10 TO 22! VL1N 34 >37 AT I! Nt XT 

7030 COLOR-- 9! PLOT 20*331 COLOR- 01 PLOT 23*301 PLOT i/>3 r . 

7040 0 - 201 TOR I - 1 TO 7!C<I) - INT < 5 0 * RND (1)) •! 151'(I) - INI (20 * 
RNO <!))'•! 101 NEXT 

7040 IT - 0 

7046 f,T - 0 

7050 COLOR- 41 IILIN G • i>G •! i AT 30 1GI •- PHI (0) / 0 ■! 41 II Gf < G THEN. G 
- 0 ■ 1 

7060 ir Gr > C THIN G - G •! 1 

7070 COLOR- 13! IILIN G • 1 * G I 1 AT 30 

7000 TOR I i TO 71 COLOR- 4! PLOT P< I )»C< I ) 1 C< I ) - C(l) ! 11 IP C( I ) - 35 TH 

CN PRINT " OUCH ! ! 

"ipr pr -i hot •- cr i upcn •- oic<:t) •- o 

7090 COLOR- 10! PLOT P(I)*C<I)1 IP GCRN< P(T)»C(I) •! 1) - 13 fl!PN PCI) ■- 0!C( 
I) - 01 ST - ST •! 1 

7100 IT cr'- 7 TIILN 7400 

7110 NEXT II GOTO 7050 

7400 IP rr > 3 THEN PRINT 1 PRINT " 01! !! DPAR THAT HURT."1 

GOTO 7500 

7410 TRINT 1 PRINT " /////////CA9C D/////// "1 POR I - 1 TO 30001 NPXT 1 Tf 








if; iJSifc 


V 

XT : I SOME t D( X ► Y ) = 1 
7420 GOTO 1450 

7500 TOI: I - i TCI 101DT - lNT (10 * RNP (1)) ! 11 II Ai< IT ) < > "" THE# 75? 

0 

7010 NEXT i PRINT I PRINT "NOTHING WAG DAMAGE P.*'i TOR I - 1 TO 15001 NEXT 

1 GOTO 74i0 

75?0 PRINT I PRINT "THE "»Ai( DT )»" WAG DAMAGE D DrYOND REPAIR" 

7530 Pi - Ai( IT ):6t< IT ) - "" 

7540 IE Di = "GOLD" THEN GO - GO 100 
7550 L T - LT • 1 


75 V 0 

tor i - 

1 TO 3 

500 *. NEXT 

: 

TCXT 

HOME UK X>Y ) - 1: 

GOTO 1450 

10000 

RCGTORC J HOME J PRINT 

*• 

PRINT 

"CONGRATUI ATIONG YOU ARE UALT WAY 

10010 

TOR I 

^ i TO 

101 IE Ai 

< I 

^ "GAND" THEN 10100 


10020 

NEXT : 

PRINT 

1 PRINT " 

UH 

' GOD 

YOU DIDN'T HAVE A 

BACK OE SAND" 

10030 

PRINT 

1 PRINT 

"TO PUT 

IN 

PLAGE 

OE THE IDOI..YOU CAN 

10040 

PRINT 

l PRINT 

"HEAR A 

RHMPT T AND A ENORMOUG GTONE 


10050 

PRINT 

! PRINT 

" GPU CRT 

IG 

ROI 1 ING DOWN AT YOU...DO 

NOT " 

10060 

PRIN1 

: PRINT 

"RUN INTO A 

Df AD 

END OR YOU WII t IT 

" 

10070 

PRINT 

1 PRINT 

"GQU1GHE 

n,. 





10075 Gl’ - 1 
10000 GOTO 10150 

10100 PRINT ! PRINT "YOU NOW HAVE THE GOI DFN IHOI GO TRY TO " 
10120 PRINT i PRINT "TRY TO HAKE IT DARK TO THE ENTRANCE 

10150 PG =- 1 

10151 TOR I - 1 TO 30 J TOE: U •- 1 TO 30 J II P(I,U) > G THEN 101.55 

10152 D(IvU) - 0 
10155 NEXT U»I 
10160 GOTO 300 

12000 I!OMf 1 PRINT 1 PRINT "WEN DOWN i- 

1?010 PRINT i PRINT "YOU HAVE GORVIVCD/////// 











V 


3L 1ST 

5 REM TIME PILOT 

6 HOKE 

10 FOR I = 1 TO 231 READ N1 POKE 
7<49 + i,ni next 

12 DATA 173,48,192,136,208,5 
.206,1,3,240,9,202,208,245,1 
74,0,3,76,2,3,96,0,0 
50 L< 1 ) = 55L( 2) = 25L( 3) = UK 4 
) = 61 L< 5 ) = 3 

55 T(l) = 19101T(2) = 19405T(3) = 

19701T(4) = 19831 T< 5) = 2001 

56 PL = 3 

60 V = 1JLL = 15 
65 SH = 40 

100 TEXT 1 HOME 

101 IF V > 5 THEN V = 1JLL = LL - 
51 IF LL < 5 THEN LL = 5 

102 POKE - 16304fOJ POKE - 163 
02.01 POKE - 16300.01 POKE 

- 16298.01 COLOR= L( V) + 20 

103 XX = INT (30 * RND ( l)) + 5 

1YY = INT (30 * RND (1)) + 

5 

104 FOR I = 0 TO 391 VLIN 0.47 AT 
i: NEXT I 

105 BG = 0 

107 X = INT (30 * RND (D) + 51 

Y = INT (30 * RND (1 )) + 5 
1SY = USX = 1 

108 COL’OR= INT (20 * RND (1)) + 

11 FOR I = 1 TO 350 

110 PLOT X.Y1X = X 4 SX1Y = Y + 

SY1 IF X > 38 THEN SX = - 1 

115 IF X < 1 THEN SX = 1 

117 IF Y < 1 THEN SY = 1 

118 IF Y > 46 THEN SY = - 1 

119 IF I / 3 = INT (I / 3) THEN 

POKE 768.L( V ) t 101 POKE 76 
9.71 CALL 770 

120 NEXT I 

_140 FOR I = 1 TO 15001 NEXT II TEXT 
1 HOME 1 (/TAB 101 HTAB 181 PRINT 
•YEAR'l INVERSE 1 VTAB 121 HTAB 
181 PRINT T( V )1 NORMAL 
145 FOR I = 1 TO 15001 NEXT I 

155 GR 

156 IF RS = 1 THEN RS = 01 GOTO 
170 

160 NU = 39 

170 COLOR= L(V) + 1! FOR I = 0 TO 

391 HLIN 0.39 AT II NEXT 11 COLOR 
175 TT = L< V) + 1 
180 FOR I = 1 TO 3!C<I ) = 01X( I ) 

= 01 NEXT I 

190 R = 45 GOSUB 1000 

199 REM START LOOP 

200 FOR I = 1 TO 21 IF C( I ) = 0 THE! 
240 

210 COLOR= TT1 PLOT C< I ),Z( I )IC( 

I) = C( I) + BX( I )!Z( I) = Z( I 
) + BY(I) 

220 IF C( I ) < 0 OR C( I) > 39 OR 
Z( I) < 1 OR Z( I) > 39 THEN C 
(I ) = 01 GOTO 240 
230 COLOR= 91 PLOT C(I).Z( I) 


TIME PILOT 


This is an action/low resolution 
program for the Apple II. You 
control an aircraft able to travel 
through time zones and en¬ 
counter a variety of enemies in 
each zone. 

Starting in the year 1910 you 
battle the bi-planes that zoom 
from all directions. Use the 
arrow keys to rotate the jet 45 
degrees in any direction. Pres¬ 
sing the space bar fires missiles 
(missiles? in 1910? Ed) unless 
there are already two missiles 
on the screen. 

Each time an enemy aircraft 


240 NEXT I 

245 IF BG = 1 THEN GOSUB 4000 

246 TK = SH 

250 FOR I = 1 TO 31 IF X( I ) = 0 THE 
GOSUB 20001 GOTO 300 
260 COLOR= TT5 FOR U = Y( I) - 2 TO 
Y< I ) + 21 HLIN X(I) - 3»X< I ) 

+ 3 AT U1 NEXT U 

265 X( I ) = X( I) - SX + SX( I )!Y( I ) 

= Y(I ) - SY + SY(I)iSX<I) = 
SX(I) + RND (1) - ,51SY( I) = 
SY( I) + RND (1) - .5 
270 IF X< I ) < 3 OR X< I) > 35 OR 
Y( I) < 4 OR Y(I) > 35 THEN X 
(I) = 01 GOTO 300 
280 GOSUB 3000 

282 FOR U = 1 TO 21 IF C(U) > X( 

I ) - 4 AND C( U) < X( I) + 4 AND 
Z( U) < Y( I) + 4 AND Z( U) > Y 
(I)- 4 THEN GOSUB 21001 GOTC 
300 

283 NEXT U 

285 IF X( I) > 13 AND X( I) < 27 ANI 
Y( I) > 13 AND Y< I ) < 27 THEN 
KL = PEEK ( - 16336) - PEEK 
( - 16336 )!SH = SH - 1 

300 NEXT I 

301 IF TK < > SH THEN GOSUB 10 
00 

305 FF = R 

310 Z = PEEK ( - 16384)1 POKE - 
it- -t 1 66 TH EN R r 
R - 11 IF R < 1 THEN R - 8 
315 IF Z = 149 THEN R = R + 11 IF 
R > 8 THEN R = 1 

320 IF FF < > R THEN GOSUB 100 
0 

330 IF Z = 160 THEN POKE 768.50 
1 POKE 769.201 CALL 7701 GOTO 
340 

335 GOTO 400 

340 FOR I = 1 TO 21 IF a I) = 0 TH 
BX(I) = 2 * SXIBY(I) = 2 * S 
Y1 GOTO 345 
342 NEXT II GOTO 400 

345 IF R = 1 THEN C(I) = 201Z( I) 

= 15 

346 IF R = 2 THEN C(I) = 24!Z(I) 

= 16 

347 IF R = 3 THEN C( I) = 251Z( I ) 

= 20 

348 IF R = 4 THEN C< I) = 241Z(I) 

= 24 

349 IF R = 5 THEN C( I) = 201Z(I ) 

= 25 

350 IF R = 6 THEN C( I) = 161 Z( I) 

= 24 

351 IF R = 7 THEN C( I) = 151Z( I) 

= 20 

352 IF R = 8 THEN C( I) = 161Z(I ) 

= 16 

400 VTAB 211 PRINT •SCORE “SC“ 
SHIELDING "SH’ ■ 

410 IF SH < 1 THEN GOSUB 5000 
800 GOTO 200 

999 END 

1000 COLOR= TT1 FOR I = 16 TO 24 

5 VLIN 16.24 AT 15 NEXT II ON 
R GOTO 1010.1040.1070.1100.1 
130,1160.1190.1220 


passes over your central jet you 
lose a certain amount of shield¬ 
ing depending on how long the 
enemy stays there. As each 
enemy craft is shot down the 
red line at the top of the screen 
recedes until you have amas¬ 
sed a total of 40 hits. Large 
alien craft appear at the top of 
the screen. When destroyed 
they are worth 500 points and 
transfers your jet to the next 
time zone. 

Mike Bantick 
Mount Beauty Vic 

1010 COLOR= 151 HLIN 16.24 AT 22 
5 HLIN 16,24 AT 231 HLIN 17, 

23 AT 211 HLIN 18,22 AT 201 HLIF 

18.22 AT 195 HLIN 19,21 AT 1 
71 HLIN 19,21 AT 18 

1011 HLIN 16,17 AT 245 HLIN 23,2 
4 AT 24 

1015 C0L0R= 91 PLOT 20,161 PLOT 
17,205 PLOT 23,205 HLIN 19,2 
1 AT 241 COLOR= 21 VLIN 18,1 
9 AT 20 

1017 SX = 01SY = - 1 

1020 RETURN 

1040 COLOR= 151 HLIN 16,22 AT 20 
1 HLIN 16,23 AT 191 HLIN 18, 

23 AT 185 HLIN 21,23 AT 175 HLIN 

19.22 AT 211 HLIN 20,22 AT 2 
21 HLIN 20,21 AT 231 HLIN 20 
-.21 AT 24 

1042 C0L0R= 95 PLOT 18,211 PLOT 
19,221 PLOT 23,201 PLOT 20,1 
71 PLOT 24,161 COLOR= 21 PLOT 
21,191 PLOT 22,18 
1045 SX = *51SY = - .5 

1050 RETURN 

1070 COLOR= 151 VLIN 16,24 AT 17 
1 VLIN 16,24 AT 181 VLIN 17, 

23 AT 191 VLIN 18,22 AT 201 VLIN 

18.22 AT 211 VLIN 19,21 AT 2 
31 VLIN 19,21 AT 225 VLIN 16 
,17 AT 161 VLIN 23,24 AT 161 

COLOR= 9 

1072 PLOT 24,205 VLIN 19,21 AT 1 

61 PLOT 20,171 PLOT 20,235 COLOR= 

21 HLIN 21,22 AT 20 
1075 SX = iiSY = 0 
1080 RETURN 

1100 C0L0R= 151 HLIN 16,22 AT 20 
1 HLIN 16,23 AT 211 HLIN 18, 


23 AT 221 HLIN 21,23 AT 231 VLIK 
16,19 AT 201 VLIN 16,19 AT 2 
11 VLIN 18,19 AT 221 PLOT 19 
1 ,191 C0L0R= 9 

1102 PLOT 19,181 PLOT 18,191 PLOT 
24,241 PLOT 20,231 PLOT 23,2 
05 C0L0R= 21 PLOT 21,215 PLOT 
22,22 

1105 SX = *51SY = .5 
1110 RETURN 

1130 COLOR= 151 HLIN 16,24 AT 17 
1 HLIN 16,24 AT 181 HLIN 17, 

23 AT 191 HLIN 18,22 AT 201 HLI 

18,22 AT 215 HLIN 19,21 AT 2 
21 HLIN 19,21 AT 231 HLIN 16 
,17 AT 161 HLIN 23,24 AT 161 
COLOR= 9 

1132 HLIN 19,21 AT 161 PLOT 20,2 
45 PLOT 17,201 PLOT 23,205 COLO 
21 VLIN 21,22 AT 20 
1135 SX = 01SY = 1 
1140 RETURN 

1160 COLOR= 151 VLIN 16,22 AT 20 

I VLIN 16,23 AT 191 VLIN 18, 

23 AT 181 VLIN 21,23 AT 175 HL: 
24,21 AT 201 HLIN 24,21 AT 2 

II HLIN 22,21 AT 221 PLOT 21 
.191 COLOR= 9 


m 


IH 


1162 PLOT 16,245 PLOT 21,181 PLOT 
22,191 PLOT 17,201 PLOT 20,2 
35 COLOR= 25 PLOT 18,221 PLOT 

19.21 

1165 SX = - .51SY = .5 

1170 RETURN 

1190 COLOR= 151 VLIN 16,24 AT 23 
1 VLIN 16,24 AT 221 VLIN 17, 

23 AT 211 VLIN 18,22 AT 201 VL1 

18.22 AT 191 VLIN 19,21 AT 1 
85 VLIN 19,21 AT 171 VLIN 16 
.17 AT 245 VLIN 23.24 AT 241 

COLOR= 9 

1192 VLIN 19,21 AT 245 PLOT 20,1 

7; PLOT 20,231 PLUl 16,201 COLO 

21 HLIN 18,19 AT 20 

1195 SX = - IISY = 0 

1200 RETURN 

1220 COLOR= 151 HLIN 18,24 AT 20 
5 HLIN 17,24 AT 191 HLIN 17, 

22 AT 181 HLIN 17,19 AT 171 VLI 
21,24 AT 201 VLIN 21,24 AT 1 

91 VLIN 21,22 AT 185 PLOT 21 
,211 COLOR= 9 

1222 PLOT 16,161 PLOT 20,171 PLOT 
17.201 PLOT 22,215 PLOT 21,2 
21 COLOR= 21 PLOT 18,181 PLOT 
19,19 

1225 SX = - ,51SY = - .5 

1230 RETURN 

2000 IF INT (LL * RND ( 1)) + 1 
= 2 THEN 2030 
2010 RETURN 

2030 TY = INT (4 * RND ( 1)) + 1 
1 IF TY = 1 THEN X( I) = 41Y( 

I) = INT (30 * RND ( 1)) + 
5!SX<I ) = 1:SY( I) = 01 RETURN 

■> 


TIME PILOT 


v 


2040 IF TY = 2 THEN X( I ) = 35IY( 

I) = INT (30 * RND ( 1)) + 

5:sx( i) = - i:sy< i) = o: return 

2050 IF TY = 3 THEN X( I) = INT 
(30 * RND <1>> ♦ 5JY<I ) = 5 

:sx<i) = o:sy< i) = i: return 

2060 X(I) = INT (30 t RND <1 )) + 
5 :y(I) = 35:sxd) = o:sy<d = 

- l: RETURN 

2100 FOR S = 1 TO 5: IF S / 2 = 

INT (S / 2) THEN POKE - 1 
6304,Ot POKE - 16302.01 POKE 

- 16299,0: POKE - 16298.0: 
GOTO 2105 

2102 POKE - 16304,0: POKE - 16 
301,0: POKE - 16300,0*. POKE 

- 16298,0 

2105 POKE 768,20! POKE 769,10! CALL 
770! NEXT S 

2107 FOR S = Y( I ) - 2 TO Y( I) + 

2 

2110 COLOR= TT! HLIN X(I) - 3fX( 

I) + 3 AT s: NEXT S!SC = SC + 

10 * VJ COLOR= 15! PLOT NU,0 

:nu = nu - i: if nu = - 1 then 

NU = o: IF BG = 0 THEN BG = 

1!X = INT (30 * RND <1>) + 

5! Y = 5 

2111 COLOR= TT! PLOT C(U),Z(U) 

2115 C(U) = 0 

2117 X(I) = 0 
2120 RETURN 

3000 ON V GOTO 3010,3050,3100,31 
50,3200 

3010 COLOR- 41 HLIN X< I ) - 1»X< I 
) + 1 AT Y(I) - 2: VLIN Y( I ) 

- 1,Y< I) + 1 AT X(I): HLIN 
X(I) - 3,X( I ) 4 3 AT Yd) + 

1! HLIN Xd) - 3,X( I) + 3 AT 
Y(I ) + 2! COLOR= 0 

3011 PLOT Xd) 4 2,Y(I) 4 2t PLOT 
X(I) - 2,Yd) 4 2 

3015 POKE 768, INT (5 * RND (1) 

) + 240! POKE 769,4! CALL 77 
0 

3020 RETURN 

3050 COLOR= 12! HLIN Xd) - 1,X< 

I) 4 1 AT Yd) - 2: VLIN Y(I 
) - 1,Y(I) 4 2 AT X<I>J HLIN 
X(I) - 3,X( I) 4 3 AT Yd) 4 
I! COLOR= 85 PLOT Xd) - 2,Y 
(I) 4 I! PLOT Xd) + 2,Yd) 4 


I! COLOR= 2 

3052 PLOT X( I ),Y( I) 4 1J FOR U = 

1 TO 3! POKE 768,241! POKE 7 
69,3! CALL 770! NEXT U 

3060 RETURN 

3100 COLOR= 14! HLIN Xd) - 1,X( 

I ) + 1 AT Yd) - 2! HLIN X(I 
) - 3,X( I ) + 3 AT Y( I )! HLIN 
X( I ) - 2,X< I) 4 2 AT Yd ) 4 
I! PLOT X( I )»Y( I ) + 2! COLOR= 
1 

3105 PLOT Xd) - 3,Yd) - 1! PLOT 
X< I ) 4 3,Yd) - 1! PLOT X( I ) 
,Y( I) - I! POKE 768, INT ( 30 
* RND (1)) 4 100: POKE 769* 
,105 CALL 770 

3110 RETURN 

3150 COLOR= 3! HLIN Xd ) - 3»X(I 
) + 3 AT Y( I) - I! HLIN X( I ) 

- 2,X< I ) 4 2 AT Yd )! HLIN 
X( I ) - 1,X(I ) 4 1 AT Yd ) 4 
I! PLOT X< I ),Y( 1)42! PLOT 
X( I ) - 3,Y( I) - 2! PLOT X( I ) 

+ 3,Y< I ) - 2 


3155 COLOR= 95 PLOT Xd ),Y(I) - 
2! COLOR= 5! VLIN Y( I),Y( I ) + 

1 AT Xd K FOR U = 1 TO 3! POKE 
768,90! POKE 769,4! CALL 770 
! NEXT U 

3160 RETURN 

3200 COLOR= 13! HLIN X(I) - 3,X< 

I) + 3 AT Yd ) - 1! HLIN X< I 
) - 3»X( I) 4 3 AT Yd ) 4 2! VLIi 
Y( I ),Y( I > 4 1 AT Xd) - 3! VLIN 

Y( I ),Y( I > 4 1 AT X(I> 4 3? COLOI 

2! VLIN Y(I),Y(I) 4 1 AT X(I 
) + 2! VLIN Yd),Y(I) 4 1 AT 
Xd ) - 2 

3205 FOR U = 1 TO 5! POKE 768,(6 
- U) * 10! POKE 769,5! CALL 
770! NEXT U 

3210 COLOR= 11! HLIN Xd) - 1,X< 

I) 4 1 AT Yd)! HLIN Xd) - 
1,X(I ) 4 1 AT Yd ) 4 1! RETURN 

4000 COLOR= TT! FOR I = X - 3 TO 

X + 3! VLIN Y - 3,Y 4 3 AT I 

! NEXT I 

4005 Y = Y 4 2 

4010 FOR I = 0 TO 3! COLOR= INT 
(40 I RND (D) + 1! HLIN X - 
I.X 4 I AT Y - I! HLIN X - I 
,X 4 I AT Y 4 IJ VLIN Y - I, 

Y + I AT X 4- I! VLIN Y - I,Y 
+ I AT X - I! NEXT I 

4012 POKE 768, INT (30 * RND (1 
>) 4 10! POKE 769,7! CALL 77 
0 

4015 IF Y > 38 THEN V = V 4 1! POP 
! cnm 100 


4020 

FOR 

I = 1 TO 2 : IF Cd ) * 

0 


THEN 

4050 


4030 

IF C(I ) > X - 3 AND Cd ) 

< 


X + 3 

AND Zd ) > Y - 3 AND 

Z 


(I ) < 

Y 4 3 THEN 4040 


4035 

NEXT 

i: GOTO 4050 


4040 

FOR 

I = 1 TO 30! IF I / 2 

s 


INT (I / 2) THEN POKE - 

1 


6304,0! POKE - 16302,0! POKE 

- 16299,0! POKE - 16298,0! 
GOTO 4045 

4042 POKE - 16304,0! POKE - 16 
301,0! POKE - 16300,0! POKE 

- 16298,0 

4045 FOR U = 1 TO 50! NEXT U,I!V 
= V 4 ItSC = SC 4 500! GOTO 
100 

4050 IF Y > 12 AND Y < 28 AND X > 

12 AND X < 28 THEN SH = SH - 
2!KL = PEEK ( - 16336) 4 PEEK 
(49200 ) 

4060 RETURN 
5000 PL = PL - 1 

5010 FOR I = 1 TO 50JKL = PEEK 
( - 16336) 4 PEEK ( - 16336 
) - PEEK ( - 16336)! FOR U = 

1 TO I / 2! NEXT U! COLOR= 1 
3! HLIN INT (40 * RND ( 1 )) 

, INT (40 * RND (1)) AT INT 
(40 > RND (1)) 

5020 VLIN INT (40 * RND (D), INT 
(40 t RND ( 1 )) AT INT (40 * 
RND ( 1)) 

5025 NEXT I 

5026 SH = 50 

5030 IF PL = 0 THEN 5100 
5035 RS = 1 

5040 FOR I = 1 TO 1000! GOTO 100 

5100 PRINT ! PRINT ! PRINT "SCOR 
E "SC" ANOTHER ■ i! INPUT A* 

I IF LEFTS (A$,l ) = *N" THEN 
END 

5110 CLEAR ! GOTO 5 Hf 


WIPEOUT _ 

V 

:l!5T 

10 REM **************** 

12 REM * GEOFF MORGAN * 

14 REM * 1983 * 

16 REM **************** 

20 HDME 
30 GOSUB 1500 

40 VTAB 22: HTAB 8: PRINT "HELLO! I'M —- !" 

50 VTAB 24: HTAB 8: INPUT "WHAT IS YOUR NAME? ";N$ 

60 HOME : VTAB 22: HTAB 8: PRINT "DO YOU NEED HELP BEFORE" 

70 VTAB 24: HTAB 3: PRINT "STARTING THE GAME? (Y/N)"; 

90 GET Y$: IF Y* = "Y" THEN 110 

90 IF YI = "N" THEN 130 

100 GOTO 80 

110 SGSL-B 1620 

120 GOTO 140 

130 0 = l! GOSUB 1620 

140 IF 0 = 1 THEN 260 

138 TEXT : HOME : PRINT TAB( 5)N$ + 

160 PRINT : PRINT : PRINT TAB( 5)"THE DIGIT INDICATED MUST" 

170 PRINT ; PRINT : PRINT TAB( 5)"MUST BE REMOVED IN ONE MOVE." 

180 PRINT : PRINT : PRINT : PRINT TAB( 5)"FOR EXAMPLE-" 

198 PRINT : PRINT TAB< 18)"TO 'WIPE OUT' THE" 

280 PRINT : PRINT TAB( 5)"3 IN 32, 30 (3 TENS) MUST BE" 

218 PRINT : PRINT TAB( 5)"SUBTRACTED FROM 32 TO GIVE 2." 

220 VTAB 24: PRINT TAB( 6)"(PRESS ’SPACE BAR' TO CONTINUE.)"; 

230 GET A$: IF A* = " " THEN 250 
240 SOTO 230 
250 GOSUB 1950 

260 TEXT : HOME : VTAB 4: HTAB B: PRINT N$ + 

270 VTAB 6: HTAB 8 

230 PRINT "TO SELECT THE NUMBERS YOU" 

290 PRINT : PRINT TAB( 8)"WOULD LIKE TO WORK WITH" 

300 PRINT : PRINT TAB( 8)"TYPE THE NUMBER PRECEDING" 

310 PRINT : PRINT TAB( 8)"YOUR SELECTION." 

320 PRINT : PRINT : PRINT TAB( 12)”1. TENS" 

330 PRINT TAB( 12)"2. HUNDREDS" 

340 PRINT TAB< 12)"3. THOUSANDS" 

350 PRINT TAB( 12)"4. TEN-THOUSANDS" 

360 PRINT TAB( 12)"5. HUNDRED-THOUSANDS" 

370 PRINT TAB! 12)"6. MILLIONS" 

380 GET B* 

390 Z = VAL (B*):ZZ = Z ♦ i 
438 IF 2 > 0 THEN 420 
410 GOTO 430 
420 IF Z < 7 THEN 450 

430 FRINT : PRINT : PRINT TAB( 7)“YOU DID NOT PRESS A NUMBER FROM 1 TO 
6. TRY AGAIN."; 

440 FDR 5 = 1 TO 2000: NEXT : SOTC 260 
450 CC = 0 
460 C = 1 

470 IF C = 11 THEN 1140 

433 RRI = "":M$ = n ":LL$ = n ":R* = "" 

490 X = RND (2) 

500 X = INT (X * 10 A ZZ) 

510 IF X < 10 A Z THEN 480 
320 HOME : VTAB 12: HTAB 12 
530 X* = STR$ :Xi 
540 IF Z > 2 THEN 910 
550 PRINT XI 


560 Y = RND (9):Y = INT (Y * 10) 


56 


4 


570 IF Y = 0 THEN 560 

550 IF Y = 4 THEN 560 

590 IF Y = B THEN 560 

600 IF 2 < 3 THEN 650 

610 IF Z = 3 THEN ZZ = 5 

620 IF Z = 4 THEN ZZ = 6 

630 IF Z = 5 THEN ZZ = 7 

640 IF Z = 6 THEN ZZ = 9 

650 IF Y > ZZ THEN 560 
660 YY = Y 

670 FOR T = LEN (XI) TO 1 STEP - 1 
630 RR! = RR! + ( MIDI (X!,T,1)): NEXT 
690 Y! = HID! (RRI,Y,1) 

700 , IF Yl = "0" THEN 560 

710 IF Yl = " " THEN 560 

720 V = LEN iXI) - Y 

730 FOR G = 1 TO 3: VTAB 13: HTAB 12 + V: PRINT " A "; 

740 GOSUB 950 

750 VTAB 13: HTAB 12 + V: PRINT ■ *: GOSUB 950 
760 NEXT : VTAB 13: HTAB 12 + V: PRINT " A " 

770 VTAB 16: HTAB (4): PRINT "WIPE OUT THE DIGIT NARKED BY THE ' A '" 

780 FOR 6 = 1 TO 200: NEXT 
790 IF Y < 4 THEN 830 

800 IF Y = 9 THEN 820 

810 Y = Y - 2: GOTO B40 

820 Y = Y - 3: GOTO 840 

830 Y = Y - 1 

840 VTAB 19: HTAB 6: PRINT "TYPE THE NUMBER' 1 
850 HTAB 6: INPUT "TO BE SUBTRACTED - ";RRI: GOSUB 1730 
B60 P = VAL (Yl):3 = P * (10 A Y):PP = X - Q 

370 IF PF < > INT (PP) THEN PP = INT (PP + 1) 

880 BB = X - RR 

390 IF BE = PP THEN 960 

908 GOTO 1290 

910 Rl = RIGHT! (X!,.3) 

920 IF Z = 6 THEN 940 

930 P = Z - 2:L$ = LEFT! (X!,P):X! = L! + " n + Rl: GOTO 550 
940 M! = HID! (X!,2,3):LLI = LEFT! (X!,i):XI = LL! + " " + M! + " u ♦ R 
!: GOTO 550 

950 FOR G = I TO 500: NEXT : RETURN 

960 GOSUB 2040 

970 VTAB 12: HTAB 12 + V 

980 IF VV < > 0 THEN 1000 

990 PRINT n GOTO 1010 

1000 PRINT M 0“;: 

1010 PRINT CHR! (7);: FOR W = 1 TO 2000: NEXT 

1820 HOME : VTAB 13: HTAB 8:P = RND (1):P = INT (P * 10) 

1030 IF P = 1 THEN 1870 

1040 IF P = 2 THEN 1080 

1050 IF P = 3 THEN 1090 

1060 GOTO 1020 

1070 FLASH : PRINT - WELL DONE ";N!;" - SOTO 1100 
1030 FLASH : PRINT "4 « MARVELLOUS ";N!;" i I": GOTO 1100 

1090 FLASH : PRINT "* * YOU BEAUTY ";NI;" * *": GOTO 1100 

1108 FOR G = 1 TO 1000: NEXT 
1110 ZZ = Z t 1:1 = 0 

1120 NORMAL : HOME :CC = CC + 1:RR! = "":C = C + 1: GOTO 470 
1130 GOTO 1140 

1140 VTAB 12: HTAB 8: PRINT N! + " - " 

1150 HTAB 3: PRINT "GOOD WORK!" 

1160 PRINT 

1178 PRINT TABi B)"YOU HAVE ";CC;" OUT OF ";C - 1;" CORRECT"’ 


WIPEOUT is an educational 
drill and practice program de¬ 
signed to strengthen place 
value skills. The student can 
select the magnitude of the 
numbers to be worked with - 
six levels (tens through millions) 

* and instructions can be called 
for at any point during the 
game. 

The student is required to 
‘wipe out’ the randomly selected 
digit in the randomly selected 
number within the range cho¬ 
sen. For example, to ‘wipe out’ 
the ‘3‘ in 23 576, ‘3000’ is en¬ 
tered as the number to be sub¬ 
tracted to give 20 576. 

Geoff Morgan 
Ferny Hills Qld 


1180 I = 0 
1190 GOTO 1280 

1200 FOR G = 1 TO 2000: NEXT G 
1210 HGME : VTAB 12: HTAB 8: PRINT "PRESS 'SPACE BAR' TO CONTINUE" 
1220 PRINT : PRINT : PRINT TAB( 8)"PRESS 'E' TO END" 

1230 GET G!: 

1240 IF G! = " " THEN 260 

1250 IF G! = "E" THEN 1278 

1260 GOTO 1238 

1270 HOME : VTAB 12: HTAB 5: PRINT "THANK YOU FOR PLAYING “;N!; 
1280 END 

1290 FOR W = 1 TO 3:'PRINT CHR! (7);: NEXT 

1300 VTAB 22: HTAB 6 

1310 P = RND (1):P = INT (P * 10) 

1320 IF P = 1 THEN 1360 

1330 IF P = 2 THEN. 1370 

1340 IF P = 3 THEN 1388 

1350 GOTO 1310 

1360 PRINT "i i SORRY, NOT CORRECT ";N!: GOTO 1390 
1370 PRINT "I # THAT'S A MISTAKE ";N!: GOTO 1390 
1380 PRINT ”4 * YOU MISSED THAT n ;N!: GOTO 1390 

1390 PRINT : PRINT TABi 7)"TRY AGAIN! I t"; 

1400 FOR G = 1 TO 2000: NEXT 

1410 VTAB 19: PRINT SPC( 183); 

1420 VTAB 22: HTAB 6: PRINT SPC( 180); 

1430 1=1+1: IF I = 3 THEN 1450 
1448 GOTO 840 

1450 HOME : VTAB 13: HTAB 3: 

1460 PRINT "THE CORRECT NUMBER TO" 

1478 PRINT : PRINT TABi 8)"SUBTRACT IS VAL (Yl) * 10 A Y; 

1480 FOR G = 1 TO 2080: NEXT 

1490 I = 0:RR! = "*:C = C ♦ 1: GOTO 470 

1500 GR : COLOR= 14: FOR X = 8 TO 39: HLIN 0,39 AT X: NEXT 

1510 CQLCR= 1 


I 
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WIPEOUT 

v 


1520 VLIN 12,26 AT 2: VLIN 12,26 AT 0: HUN 4,6 AT 12s VLIN 12,26 AT 4: 

VLIN 12,26 AT 6 

1530 VLIN 23,26 AT 3: VLIN 23,26 AT 7 

1540 VLIN 12,26 AT 11: VLIN 12,26 AT 13: HLIN 13,17 AT 12: HLIN 13,17 AT 
18: VLIN 12,16 AT 17 
1550 VLIN 12,17 AT 17 

1560 VLIN 12,26 AT 1?: HLIN 19,22 AT 12: HLIN 19,20 AT 17: HLIN 19,22 AT 
26 

1570 VLIN 12,26 AT 24: VLIN 12,26 AT 27: HLIN 24,27 AT 12: HLIN 24,27 AT 
26 

1590 VLIN 12,26 AT 29: VLIN 12,26 AT 32: HLIN 29,32 AT 26 
1590 HLIN 34,38 AT 12: VLIN 12,26 AT 36 
1600 GOSUB 1670 
1610 RETURN 

1620 COLOR= 14: FOR X = 12 TO 26: HLIN 0,39 AT X 
1630 G = PEEK (S) 

1640 FOR Y = 1 TO 100 
1650 NEXT Y: NEXT X 
1660 RETURN 
1670 S = - 16336 
1680 FOR B = 1 TO 50 

1690 G = PEEK (S) - PEEK (S) + PEEK (S): NEXT 
1700 FOR B = 1 TO 50 

1710 G = PEEK (S) - PEEK (S) + PEEK (S) - PEEK (S) + PEEK (S) - PEEK 
(3) + PEEK (S) 

1720 NEXT : RETURN 
1730 E = LEN (RR*) 

1740 IF RR$ = UB THEN 840 
1750 FOR L = 1 TO E 
1760 EE* = MID* (RR*,L,1) 

1770 EE = ASC (EE*) 

1780 IF EE = 32 THEN 1910 

1790 IF EE < 48 THEN 1830 

1800 IF EE > 57 THEN 1830 

1810 NEXT L 

1820 RR = VAL (RRI): RETURN 

1830 IF E < >1 THEN 1870 

1840 IF EE = 81 THEN 1940 

1850 IF EE = 82 THEN 260 

1860 IF EE = 72 THEN 150 

1870 FOR M = 1 TO 2: PRINT CHR* (7);: NEXT 

1880 VTAB 22: PRINT "YOU DID NOT ENTER ’;: INVERSE : PRINT "A NUMBER GRE 
ATER": NORMAL 

1890 HTAB 14: INVERSE : PRINT 'THAN ZER0!": NORMAL 
1900 FOR H = 1 TO 2000: NFXT 
1910 VTAB 22: PRINT SPC( 80); 

1920 PRINT CHR* (7);: VTAB 20: PRINT SPC( 39); 

1930 RR* = GOTO 840 
1940 HOME : 6QT0 1140 

1950 HOME : VTAB 8: HTAB 5: PRINT 'DURING THEN GAME ENTER:' 

1960 PRINT : HTAB 9: PRINT ■*Q' TO QUIT- 

1970 PRINT : HTAB 9: PRINT "'R' TO RETURN TO MENU- 

1980 PRINT : HTAB 9: PRINT ■'«' TO GET INSTRUCTIONS’ 

1990 VTAB 18: HTAB 4: PRINT "PRESS 'SPACE BAR' TO CONTINUE.’ 

2000 GET G* 

2010 IF G* = • ' THEN 2030 
2020 GOTO 2000 
2030 RETURN 
2040 VV = V: RETURN 

3 


APPIE SPffl) LOCK 


Lots of unlocked files on your Unlock performs in the same 
disk, and hours of typing to lock manner. Normal simply 

them up away from the kids? catalogs the disk, then exits the 

Try Speed-Lock. program. Quit simply clears the 

The Speed-Lock will first screen and ends, 
catalog the disk, and when the For disks with full catalogs, 
end of catalog is reached, a that is, more than 1 screen-full, 

short data POKE sequence is only the last screen display will 

run, (about 6 seconds) and a be locked. A short catalog inter¬ 

menu placed at the top of the rupt sequence should be no 
screen: Lock, Unlock, Normal, problem so you can lock the 

Quit. Selection of Lock will first screens and then move on. 

cause the drive to step through 

each listing on the Displayed R. Chalmers 

catalog only, and lock the files. Inala Old 


DL 1ST 

10 TEXT : HOME * CLEAR 

20 REM mmmmmmmmmm SPEED 

LOCK .......... 


30 PRINT CHR* (4)"CATALOG" 

40 DIM A(24),N*(30) 

50 i 

60 FOR I = 1 TO 24: READ A<I>: MEXT I 
70 REM IX/VII/MCMLXXXII 
80 T - PEEK <37) 

90 IF T > - 23 THEN S - Oi GOTO 110 

100 S = 5 

110 GOSUB 380 

120 INVERSE : VTAB 1: HTAB 1: PRINT "(DOCK (U)NLOCK (N)ORMAL 
<Q)UIT"|i NORMAL l PRINT " ?"| CHR* (8)ji GET AN* 

130 HOME 

140 IF AN* - "L" THEN 190 

150 IF AN* = "U" THEN 310 

160 IF AN* - "Q" THEN 260 

170 IF AN* * "N" THEN 270 

180 GOTO 120 
190 PRINT "LOCK 
200 FOR X - S TO T 
210 N* <X) - MID* <N*(X),7) 

220 PRINT CHR* <4)"LOCK"N*(X) 

230 VTAB It HTAB 5i PRINT " "N*<X> 

240 NEXT X 

250 GOTO 120 

260 GOTO 500 

270 PRINT : HOME 

280 PRINT CHR* (4)"CATALOG" 

290 GOTO 260 
300 END 

310 PRINT "UNLOCK 

320 FOR X * S TO T 

330 N*(X) - MID* (N*(X),7) 

340 PRINT CHR* <4)"UNLOCK"N*(X) 

350 VTAB It HTAB 7: PRINT " ";N*(X> 

360 NEXT X 
370 GOTO 120 
380 FOR X - S TO 24 
390 FOR Y = O TO 29 

400 N*(X) = N* (X) + CHR* ( PEEK (A(X) + Y>) 

410 NEXT Y 

420 IF MID* <N*(X),2,1) - CHR* (160) THEN 440 
430 NEXT X 
440 XX = X - 1 
450 RETURN 

460 DATA 1024,1152,1280,1408 

470 DATA 1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832 
,1960,1104,1232,1360,1488,1616,1744,1872 
480 DATA 2000 

490 FOR X - S TO T: PRINT LEFT* (N*(X>,1): NEXT X 
500 DEL 10,490: CLEAR : END 
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H-RES REVERSE 


When using the Apple’s hi-res 
screen, you have a whole world 
of graphic capabilities at your 
fingertips. But sometimes, as I 
have found, you can create a 
complex picture or graph and 
then say to yourself ‘It would 
look a lot better if the whole 
screen was reversed’. Here is a 
short Assembly Language pro¬ 
gram that will do this for you. To 
utilise it simply BRUN the pro¬ 
gram after saving it to disk. 


Martin Scerri 
Mulgrave VIC 


10 CLEAR : TEXT : HOME : INVERSE 

: PRINT SPCt 40): VTAB 2: HTAB 
1: PRINT " VTAB 2: HTAB 4 
O: PRINT VTAB 3: HTAB 1 

: PRINT SPC< 40): NORMAL : VTAB 
2: HTAB 10: PRINT "EPSON GRA 
PHICS DUMP": VTAB 5 
20 POKE 34,3 
30 GOSUB 130 

40 INPUT "INVERSE? (Y OR N):";IN 

* 

50 INPUT "ENLARGED? (Y OR N):";E 
N* 

60 IF LEFT* <IN*,1) = "Y" THEN 
I = 32 

70 IF LEFT* <EN*,1) = "Y" THEN 
E = 64 

80 POKE 1913,E +1+1 
90 POKE 1913,E +1+1 
100 PRINT CHR* (4);"PR#1" 

110 PRINT CHR* (17) 

120 PRINT CHR* (4);"PR#0": POKE 
34,0: END 

130 PRINT CHR* (4);"CATALOG" 

140 PRINT 

150 INPUT "NAME OF HI-RES SCREEN 
TO LOAD:";RE* 

160 PRINT CHR* (4);"BLOAD"5RE*j 
",A*200O" 

170 RETURN 


65535 

REM 

****************** 

65535 

REM 

COPYRIGHT (C) 1983 

65535 

REM 

23/7/83 

65535 

REM 

MARTIN SCERRI 

65535 

REM 

WRITTEN BY: 

65535 

REM 

****************** 


* 

3CALL-151 

*6000L 



6000- 

8D 

50 

C0 

60O3- 

8D 

52 

C0 

6006- 

8D 

54 

C0 

6O09- 

8D 

57 

C0 

600C- 

A9 

00 


600E— 

A8 



600F— 

85 

F8 


6011- 

A9 

20 


6013- 

85 

F9 


6015- 

AA 



6016- 

B1 

F8 


6018- 

49 

FF 


601A- 

91 

F8 


601C- 

CS 



601D- 

D0 

F7 


601F- 

E6 

F9 


6021- 

CA 



6022- 

D0 

F2 


6024- 

60 



6025- 

FF 




STA 

*C050 

STA 

*C052 

STA 

*C054 

STA 

*C057 

LDA 

#*00 

TAY 


STA 

*F8 

LDA 

#*20 

STA 

*F9 

TAX 


LDA 

<*F8),Y 

EOR 

#*FF 

STA 

(*F8),Y 

INY 


BNE 

*6016 

INC 

*F9 

DEX 


BNE 

*6016 


RTS 

??? 


* 

1 CALL-151 
*6000.6025 


6000- 

8D 

50 

C0 

8D 

52 

C0 

8D 

54 

6008- 

C0 

8D 

57 

C0 


00 

A8 

85 

6010- 

F8 

A9 

20 

85 

F9 

AA 

B1 

F8 

6018- 

49 

FF 

91 

F8 

C8 

DO 

F7 

E6 

6020- 

F9 

CA 

D0 

F2 

io 

FF 









RESPONSE TIME 


This subroutine can be included 
in teaching programs to gain 
student responses in a 
specified time. 

Harry Klose 
Wauchope NSW 


) L I ST 

10 HOME : TEXT 

15 VTAB 5: HTAB 1: PRINT "PLEASE 
TYPE YOUR NAME AND PRESS TH 
E RETURN KEY" 

20 PRINT C H R $ (7): REM - THIS 

SIGNIFIES THE BEG INNI NG OF 3 
SECONDS FOR RESPONSE 
25 N = N + 1 
30 X = PEEK ( - 16384) 

40 POKE - 16384,0 

50 IF N = 120 GOTO 300 

51 REM VALUE OF N CAN BE VARIED 

ACCORDING TO. TIME REQUIRED, 
THE VALUE HERE IS ABOUT 3 S 



ECONDS 



60 1 

F X C 128 GOTO 

25 


66 1 

F X > 127 GOTO 

200 


200 

VTAB 8: HTAB 1; 

1 NPUT 

" " ; A$ 

210 

VTAB 20: HTAB 1 

: PRINT 

"THAN 


K YOU ";A$ 



250 

STOP 



300 

FOR 1 = 1 TO 3: 

PR 1 NT 

C HR $ 


( 7 ) : NEXT : PR 1 

NT "YOU 

WERE 


TOO SLOW" 



301 

REfA - CHR $ ( 7 ) 

SIGNIFIES THA 


T T1 WE IS UP 



QQQ 

PR 1 NT. 



1000 

REM :THIS SUBROUTINE 

CAN BE 


INCLUDED IN TEACHING 

PROGRA 


MS TO GAIN STUDENT RESPONSES 
IN A SPECIFIED TIME. 

1009 PRINT 

1010 REM :THIS PROGRAM CREATED B 
Y HARRY KLOSE 1 MAY 1982 
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COPY SaECTOfi 


Have you ever wished that you 
didn’t have to enter DOS to 
search disk directories for a 
particular program? How about 
single key input to run the pro¬ 
gram once found? 

Selector was written with both 
of these ideas in mind to allow 
my children easier access to 
our games disks. It will accept 
up to 50 filenames from a disk, 
although this may be increased 
to the ATARI’S maximum of 64 
by changing the DIM FILE value 
in line 600. 50 should be suffi¬ 
cient for most disks. 

SAVEd programs will be RUN 
upon selection and LISTed pro¬ 
grams will be ENTERed. I have 
assumed that LST will be used 
as a filename extender on 
LISTed programs, as recom¬ 
mended in the DOS Reference 
Manual. A load will be attempt¬ 
ed for any file selected, how¬ 
ever, an error message results 
if the load is unsuccessful (for 
example, if trying to load 
DOS.SYS). 

I have made this program an 
AUTORUN.SYS file on all of my 
disks so that my children can 
easily select their program as 
soon as the disk boots, or sim¬ 
ply read directories until they 
find the program they wish to 
run. This was achieved using 
the program from Automate 
Your ATARI, written by JJ 
Wrobel and published in the 
January 1983 issue of COM¬ 
PUTE magazine, page 146. 


1 RBM 

2RBM SELECTOR 

3 RBM by JOHN TR1GGB 

4 RBM 3 September 1983 

5 RBM 

10 DIM FILBI<550),INK17),OUT$<14),TI<i),MSG*<80),TBMP*<ll) 

15 GOSUB 600:REM InitiAliMtion 

20 M>l:N-64:GOSUB 500:RBM Get directory 

30 IF C-l THBN POSITION 14,10:? " Disk empty “:GOTO 70 

40 ? "<";CHRI<M+N);"> ";FILBf(Mel 1-10,Mel 1) 

50 IF M+N«77 THBN POKB 82,22:POSITION 22,2:RBM Start second column 

60 M*M+1:IF M<C AND M/27<>INT(M/27) THBN 40 

70 POKB 82,2:GOSUB 400:RBM Get message 

80 GOSUB 300:RBM Sound, move message and get input 

90 IF (A<49 OR A>50> AND (A<65 OR A>M+63) THBN 80 

100 IF A>49 AND M<C THBN GOSUB 600:N«N-26:GOTO 40:RBM More programs 

110 IF A-49 THBN GOSUB 430:GOSUB 300:GOTO 70:RBM No more programs 

120 IF A»50 THBN GOSUB 410.GOSUB 300:GOSUB 600.GOTO 20:RBM New disk 

130 D*A-N:OUTI“"D:" 

140 TBMPt-FILB6(D*l 1-10,D*i 1-3) 

150 FOR I»1 TO 8:IF TBMP$U,I)<>" " THBN OUTI(LBN(OUT»)+l)»TBMPt(I,I):NBXT I 
160 TBMP4«FILB4(D*11-2,Dell) 

170 IF TBMPt(l,l)<>" ' THBN OUTt<LBN(OUT$)+l)»".":RBM Filename extender used 
180 FOR I»i TO 3:IF TBMPt<I,I)<>" " THBN OUT4(LBN(OUT»)+l)«TBMP»(I,I):NBXT I 
190 IF OUTKLBN(OUTI)-2)*"LST* THBN GRAPHICS 0:POKH 82,2:QOSUB 450:BNTER OUT! 

200 TRAP 210:QOSUB 450:RUN OUT! 

210 GOSUB 420:GOSUB 300 
220 POSITION 7,19:? -(30 spaces)" 

230 GOTO 70 

300 FOR >1 TO 2:FOR Y«1 TO 40 
310 SOUND 0,96,10,10:NBXT Y 
320 SOUND 0,0,0,0:NBXT Z 
330 POSITION 1,23:? MSG*<1,38); 

340 T»"MSG*<l,l):MSQMMSQf(2):MSQ»<LBN<MSG»>+l)-T»:R8M Move message 

350 FOR W-l TO 40:NBXT V 

360 IF PBBK(764>-235 THBN 330 

370 OPBN #2,4»0,"K:":RBM Open keyboard 

380 GBT «2,A:POKB 764,255 

390 CL0S8 »2:RBTURN 

400 MSOf"ePRBSS LBTTBR B8SID8 DBSIRBD PROGRAMeel-MORS PROGRAM S*e2»NBW 
DISK#-:RB TURN 

410 MSQM'ePLACB NBW DISK IN DRIVBeepRBSS ANY KEY TO CONTINUBe":RBTURN 

420 MSG*“"ePROORAM NOT AVAILABLE FROM BASICeePRBSS ANY KEY TO CONTINUE»":RBTURN 

430 MSGM"eNO MORE FILES ON THIS DISKeepRBSS ANY KEY TO CONTINUE*“:RBTURN 

450 POSITION 7,19 

460 ? "Searching tor ";OUT$ 

470 RETURN 

500 OPBN il,6,0,"D:e.e":RBM Directory 
510 C*1:FILB$»"" 

520 INPUT «l,INt:RBM Input filename 

530 IF INI(LBN<IN$)-11,LBN(IN$))»"FRBB SECTORS" THBN 570 
540 INI-INf(3,13):RBM Remove locked' 

550 FILB$(Cell-10^ell)«IN* 

560 C»Cel:QOTO 520 

570 CLOSE #t:RBTURN 

600 POKB 82,2:GRAPH1CS 0 

610 SBTCOLOR 2,l,l:POKE 752,1 

620 ? "(11 spacesIDISK DIRBCTORYdl spaces)) 

630 POKB 82,3:? 

640 RETURN 


A 

ATARI 


J. Trigge 
South Penrith NSW 







WORD TEASER 


Word Teaser is a game de¬ 
signed to trick your friends into 
believing that you have one of 
the most intelligent computer in 
the world. 

When you have keyed in the 
program and run it you will be 
confronted by the question “Are 
you ready to start?” If you type 
in yes the game will start, if you 
type in no the program will end. 
If you type in an asterisk in¬ 
structions will be displayed on 
the screen. 

After you have read the in¬ 
structions try the program on 
your friends, they will be 
amazed. 


Jarrad Webb 
Henley Beach SA 


i nins$(50>,K(50>:x=i 

5 PRINT'D" 


50 

PRINT" 

f f * 

ff ffff 

ffff" 


cr? 

PRINT" 

f f f 

f f f 

f if 

fffffffff" 

54 

PRINT" 

ffff 

f ffff 

if. f 

fEV'J.NEEBf" 

56 

PRINT" 

f f f if: 

f f * 

f f 

fffffffff" 

SR 

PRINT" 

* f f 

if if f if 

ffff" 


60 

62 

PRINT 

PRINT" 

***** **** *** 

ffff 

fff ffff" 

64 

PRINT" 

f f 

if f 

f i 

* f f" 

66 

PRINT" 

* ff 

f f f 

ffif h 

m ffff" 

68 

PRINT" 

f f 

f ff f f 

f H 

* f f" 

70 

PRINT" 

f f 

iff if f if 

ffff 

fff f f" 

80 

PRIHrfiBF'LEfiSE 

GUESS R WORD (IT 

MUST BE R N.OU 

90 

PRINT"SHARE VOU 

READY TO 

STAR 712 

•CV/N> ■" 


100 GETRT-IFfif^""THEN100 
105 IFfl$="f"THEN300 
110 IFR$“"'t" , THEN150 

120 IFR$~"N"THENPRINT"nWSEE VOU LATER,BVE" : END 
130 GOTO100 


150 PRINT" 




•iORU TERSER! 


160 INPUT"HWHRT COLOUR IS IT ";Q$=G0SUB500 


This program uses the HIRES 
machine code routines to plot 
graphs of user-supplied func¬ 
tions within a range of values 
specified by the user. The de¬ 
sired function is simply input; 
the program contains a mini¬ 
interpreter to code the function 
and allow the X and Y coordi¬ 
nates to be calculated for the 
plot. 

The plot is automatically 
scaled, graduated and labelled, 
X and Y axes are displayed, 
and the title and range indica¬ 
tions are displayed. The pro¬ 
gram allows functions to be 
plotted which include any of the 
normal arithmetic operators as 
well as SIN, COS, TAN, ATN, 
EXP, LOG, SQR, ABS and INT. 
The exponentiation ‘up arrow’ 
and parentheses may also be 
used. 

The range of X values re¬ 
quired should not include any 
values for which the function is 
undefined (eg. division by zero). 

The HIRES routines must be 
loaded into memory before this 
program can be run. Take great 
care when typing this program 
into your computer that there 
are exactly 59 spaces between 
the ' = ’ and the ‘2’ in the first 
line. 


GRAPH 


100 BEFFNfl<X>= 

101 REM *■ ” ' 

102 REM MIKE GRIFFITHS - 1983 

103 REM 

104 ,T=43581 : P0KE49681 > 14 

105 FLAG=FLAG+1:IFFLAG>1THEN295 
1G6 PRINTCHRtC144> 

110 DIMV <380}:DIMX <300 >•DIMB$ < 14 > : DIMN$<14):GOSUB5000 : GOTO1P0 
120 XH= I NT (X1 /25S > : XL=X 1 -256#XH : POKE J /VI: POKE J-f 1, XL: POKE J+2 .■ XH 
140 SVS49711 
150 RETURN 

180 P0KE53281 / 14: PR INTCHR* < 147): PR I NT-" SPEC IF V FUNCTI ON IN THE FORM V=F < X > " 
1S5 PRINT: PR I NT "VOU CRN INCLUDE" •' PRINT 

187 F0RX=1T03:PRINTD t <X)TAB <18>D$ < X+3)TAB <20 >D$<X+6>:NEXT 
138 PRINT:PRINT"(ENTER ZERO TO END>" 

190 PRINT:INPUT"V=";F$ 

192 IFF t= "0"THENEND 

195 PRINTCHRt(147 >:PRINT:PRINTTRE<12 >"CODINO FUNCTION" 

200 SLt<="Y="+Ft 
210 R=LEN<FT>-2 
220 F0RX=1T0R 
230 T$=MIDf<F$/X/3> 

240 FOR't- 1T09 

250 I FT$=D$ < V > THENFT=LEFTf < Ft .. X~ 1 > +Nf ( V >+RI GHT$ <F$, fl-X '• : fl=fl~2 
260 NEXT:NEXT 
262 A=LENCF$> 

264 F0RX=1T0R 
266 T:r=Miri:t<FT/X, 1> 

268 FOR't-10TO14 

270 IFT*=DT < V > THENF*=LEFT* < Ft, X-1 > +Nt ( V > +RI GHTt < Ft , fl-X > 

272 NEXT:NEXT 

274 IFLEN< Ft ><64THENF$=" " +Ft■ GOT0274 

275 IFLEN <Ff>>64THENPRINTCHR#<147 > = PRINT"FUNCTION TOO LONG":END 

276 F0RX=1T0LEN<F$> 

280 POKE2059+X / RSC < MI B* <.Ft , X, 1) > 

290 NEXT 
292 GOTO100 

295 PRINTCHRf<147 >:PRINT = PRINT"INDICRTE RANGE OF PLOT" 

300 PRINT:INPUT"LOWEST X VALUE ";L 
310 PR I NT : INPIJT " HIGHEST X VALUE " ; H 

315 PRINTCHR#<147 > = PRINT:PRINTTRE<11>"CALCULATING POINTS" 


M. Griffiths 
Lindisfarne NSW 



















165 INPUT "BIS IT MADE OF HOOD "Qf' GOSUD50O 

166 INPUT "BIS IT MODE OF PLASTIC "Qf ^ GOSUBSOO 

167 INPUT "BIS IT MADE OF METFlL "; Qf : GOSUB50O 

168 INPUT "BIS IT MADE OF NATURAL SUBSTANCES ";Qf:GOSUB500 

i?0 input "Edges it eat food ";q$ -gosubsoo 

175 INPUT"BIS IT VERY LARGE ",Qf:GOSUB500 
180 INPUT"BIS IT VERY HEAVY ";Qf■GOSUB500 
185 INPUT "EDGES IT BREAK Qf GOSUBSOO 
190 INPUT"BDOES IT MAKE A NOISE "Qf: GOSUB5O0 
195 INPUT "BIS IT ANIMAL.' VEGETABLE OR MINERAL ".: Qf ■ GOSUBSOO 
200 INPUT "BIS IT NATURAL Qr GOSUBSOO 
205 INPUT"EDGES IT GIVE OFF AN ODOUR ".;Gf:GOSUB500 
210 INPUT"0DOES IT MOVE ";QfGOSUBSOO 
220 PRINT"®I'M SORRY I DON'T KNOW WHAT IT IS" 
••PRINT"IFLEASE TRY AGAIN" 

236 FORT=1TO5090 : NEXT'RUN 

300 PRIHT"QffiDO YOU WANT TO SEE THIS SY.'H: ?" 

305 GETAf : IFAf=""THEN305 
310 IFAf="H"THENRUN 
315 IFAf O" Y" THEN305 

320 PRINT"3®-ASK YOUR FRIENDS TO TELL YOU A NOUN." 

321 PRINT‘IB-THEN ANSWER THE QUESTIONS ACCORDINGLY." 


322 PRINT"®-AFTER YOU HAVE ANSWERED EACH QUESTION" 

323 PR I NT "0-PRESS '.RETURNS." 

324 PRINT"®-THEN WHEN NO-ONE IS LOOKING ENTER" 

325 PRINT “0- LETTERS OF WORD ONE AFTER EACH RETURN." 

326 F'RINT"®-WHEN ALL THE LETTERS HAVE BEEN" 

327 PRINT"0-ENTERED PRESS THE STS KEY." 

328 PR I NT"®-THE WOPD WILL. THEN APPEAR ON THE " 

329 PRINT" ®-SCREEN AS IF BY MAGIC." 

330 PRINT" »>fcii>MiiEFlN Y KEY TO RE-RUNS" 

332 GETAf'IFfif-""THEN332 

335 G0T05 

500 GETAf : IFAf=""THEN500 
505 IFRf=" t" THEWGOTO60G 
510 Sf(X>=Af 
520 X=X+1 
530 RETURN 

600 PR I NT "801 THINK I'VE GOT IT.. IT'S A."PRINT 

610 FORT= 1T OX : PR I NT Sf' T >.: 

620 F0RV=1TQ50Q : NEXTY 

630 NEXTT _ 

640 PR 1 NT " KHKHMiHSF INOTHER GO <:y/N>" 

650 GETAf:IFAf=""THEN650 
660 GOTO110 


320 N=0 

330 IFL>HTHEHT=H:H=L.:L=T 

335 I={H-L > /28Q*. 39999399 

340 FORX=LTOHSTEPI 

360 N=N+1:X<N> = N+19 : V<N>=FNfl<X> 

370 NEXT 

380 S=V(1):B=V(1) 

3?5 PR I NTCHR* < 147 > : PR I NT •' PR INTTRB (16) " SCflL ING " 

330 FQRX=1TQN 

400 IFV<X> <STHENS=V < X> 

410 IFV <X> >BTHENB=V <X> 

420 NEXT 

425 IF<B-SX. 00801 THENS=S-5: B=B+5 
430 R=160/< E-S > 

435 SYS49584-P0KE253,1 

440 X1 = L9 V1=20:X2=13:V2=180:GOSUB7000 

450 X1=18'X2=18•G0SUB7000 

460 X1 = 18:X2=300:V1 = 181:V2=181- GOSUE7000 

470 V1 = 182 = V2= 182 •' GOSUB7000 

480 FGRV1=20TO180STEP16 

485 X1 = 16 = GOSUB120:X1 = 17;GOSUB120 

430 NEXT 

500 FORX1=20TO300STEP28 

505 V1=183:GOSUB120:V1=134:GOSUB120 

510 NEXT 

560 SX=5:3V-0:GOSUB1000 

570 SD$="X RRNGE "+STR* <L) + " TO " +STRT(H > 

580 SX=5 : SY=2 : GOSUB1000 
590 SD$="Y RANGE " 

600 S*=STRf<S> 

610 GOSUB3000 

620 SD$=SD*+S*+" TO " 

630 S$=STR$<B) 

640 GOSUB3000 
650 SD*=SD*+S# 

660 SX=5:SV=3:GOSUB1000 
670 SD$="Y" 

RX = 1 •• SY = 11 •• GHSI IB 1000 
690 sd*="x m 

692 SX=21 : SY-23 : GOSUB1000 
694 FORX=1TON 

636 V < X > = I NT < 180- < V < X > -S*R > + .5 > 


699 IFX>1THENGOSUB7000 

700 NEXT 

703 SD$="PRESS SPACE TO EXIT" 

706 SX=6 ; SY=24:GOSUB1000 
710 GETM$:IFMf=""THEN710 

720 P0KE53272,21=P0KE53265,27:PRINT"GOTO130 
1000 P0KE56334,PEEK(56334 > RNB254 
1003 POKE1,PEEK(1>RNB251 
1007 FORfl=1TGLENC SDt> 

1010 PC=flSC<MIBT< SD$■H/1> > 

1015 IFPC=32THEN1055 
1020 IFPC>6TTHENPC=PC-64 
1O30 FORBY=0TO7 

1040 POKES192+SX*8+320*SY+BV,PEEK < 53248+8*PC+BV> 

1050 NEXT 
1055 SX=SX+1 
1060 NEXT 

1063 POKE1,PEEK(1>0R4 
1067 P0KE56334,PEEK<56334 > OR1 
1070 RETURN 
3000 R=1 

3010 np$=r'iinT(ST,R, 1 

3020 IFDP$="."THENNC-fl-1:GOTO3040 
3030 R=fl+1 : IFRCLEN (. St- > THEN3010 
3035 B=0 GOTO3050 
3040 B-3-NC : IFD-C0THENB=0 
3050 Q=VRL<S$> 

3060 B=10TD 

3070 Q=INT <( Q+.5/D>*B >/D 
3080 St=STRT(Q>:RETURN 
5000 F0RX=1T014 

5010 READD*<X>,N = N*< X > =CHR*(N > 

5020 NEXT 
5030 RETURN 

6000 DATA " I NT" , 181, "ABS" , 182, "SQR",186,"LOG",188,"EXP",189,"COS",190 

6010 DATA "SIN "> 191 > " TAN",192,"RTN’M93," + ",170,"-",171,"♦",172,"■ ‘",173 

6020 DATA "t",174 

7000 XH=INT(XIX256>:XL=X1-256#XH 

7010 POKEJ,V1:POKEJ+1,XL:POKEJ+2,XH 

7020 XH=INT < X2/256> : XL=X2-256*XH 

7030 POKEJ-3,V2 : POKEJ-2,XL:POKEJ-1,XH 


698 X2=X1:Y2=Y1:X1=X <X >:V1=V <X> 


7040 SYS49791 RETURN 
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REM "la'-RVa UN 

21 REM 

22 REM "■"=RVS UFF 

23 REM 

24 REM "0"“DOWN 

25 REM 

2f. REM "0"“RIGHT 

27 REM 

20 Il=9: RD=9 

•35 RE=54272 

40 W= 17 : p I 1 : V 0 = 15 

45 HI MH < 55 ) = DI ML (. 55 > ■ BIMD 1 

50 P0KE53288 > 10 '• P0KE53281 > 11 

55 GO8UB1000 

4,0 ROSUB8000 

70 P0KERE+24., VO 

00 POKE1145,81:R0KE55417,5 __ 

100 GETM# : IFEC> 0 THENU 0 S UB500 

IS M“fiSC(Mf> bj IFM>132RHDM<l37THENGOSUB1500 = GOTO 100 

i cr, : T FM<"0! IRM252THE.H 100 _ . ....... . p,--, 

POKERf.5, Mj;POKER !: S SR: POKEKM^^ .‘ 

•' :-;ci r:L=D '• H; +B '-.IJ; • F UR,•••,-•- 1 1 Ul-l. • ml.* . \ « -■ — 

500 wn*=vn+riI = IFVO> 15THENV0= 13 : DI--1 
520 IFVO<ECTHENVO=EC : I'I = 1 

cr £3 C.* j | J.;'' P~ fr* R •+• gf >•! i *,•M 

540 RETURN 
1 ri fi 0 F O R X 0 T G 5 2 
1020 RERBH < X > •• L < X > 
i030 NEXT 
j 0 4 0 F f! RX := 0 T 01'J 
] RE Ml 1 !' X 
1 REG NEXT 

Jf L 0 ^F J ^., TNrNFn pv- fl Tnc >4 : P0KFRE+X, 0 : NEXT : PRINTCHR*< 147> E‘ 

1 51 0 I FM~ : 134THENP0KE1145+WW*N, on • N=vi.oUoJE*.-- . .. 

J S t cm- i THFNGuF;! 1B2500 : RETURN .. _ . r ... n |r .,,, 

Fpp tfR- 136THENP0KE1145 + 80*N, 32•• N=N + 1 = OOSUB2W00 • RE! Urh 

20P0 IFN03THENN-9 

■?010 j FH>9THEHM“0 , - - c- 

5020 POKE!145+N#80, 8 1 : P0KE55417+N*«0,5 

2030 RETURN 

P50O priKF55417+H#80, 14 I, 

5'S 10 PrYnTCHR*< 19 > CHR$<154 > TRB <31 03" I 

55J5 PRiNTTRB<31>"O r 3 INCR." 

2528 F'R INTTRB<31 > “@F5 OK _ 

r ~,5 PR 1 N r TflB31 13' BEJ-.R■ _ ... c -crr>r. ■-riri ,::r'rpp ‘7r 

T.'G’o'p, nnc;' 1^:2000.. 3508,4008 .• 4500,3000 Oooo •' °- •' ' 

j 5^5 fFN=46RN=5ORN=8THENLP=0-HP=0 „ 

2540 PR IHTCHR* (19) CHR$ < 38 J THE31~"-' L 
2545 PRINTTRB<31)"@F3 UP 
2558 PR I NTTRB < 31 > "EF5 FILTER" 

-•'555 F‘RINTTRB<31) "EF7 DuWN 
254,0 P0K.E55417+N*88,5 
‘ 2570 RETURN 

POOR rins!JB3300 
3810 ONMOQTO3020 3040 .• 3050 
3020 R=fl+1 : IFR>15THENR=15 
:20:28 OOTO3068 
3048 RETURN 

" S POKEl 158?32^P0KEH59,32^FOR'X=0T02- ( POKE1209+X,32 : NEXT 

3070 PR INTCHRT ( 1 yUHRT144THB 1 o ■ •* N 

3080 HD~H4:16+B . . __ 

1 3090 PR INTCHR* < 19 > TRB < 24) "©SMS Hi' 

3100 GOTO3000 

3300 GETM*:IFM*=""THEN3300 
3210 M=fiSC<M* > 

• ’ 5550 IFM■< 1 340RM> 136THEN3380 

' 3330 M=M-133 : RETURN 

Y 3500 GOSUB3300 









SYNTHONY 


Synthony is a music/sound ef¬ 
fects experimentation program 
which converts the Commodore 
64’s keyboard into a three-oc¬ 
tave musical keyboard with full 
notes on the ‘QWERTY’ and 
bottom rows and half notes 
where appropriate on the inter¬ 
mediate rows. 

The program uses voice 1 of 
the Commodore 64 and allows 
the user to alter the ADSR en¬ 
velope, waveform and other 
parameters by simple manipula¬ 
tion of the special function keys. 
Formatted screen output makes 
these changes and displays the 
appropriate sound chip regis¬ 
ters and the values currently 
being POKEd into them. The 
program can thus be used for 
simple entertainment, including 
playing tunes and experiment¬ 
ing with sound effects, or for de¬ 
veloping tunes or sound effects 
for subsequent use in games, 


ATTACK 

DECAY 

SUSTAIN 

RELEASE 

WAVEFORM 

ECHO 

1 

— 

1 

9 

9 

HI 15 

PULSE 

LO 125 

0 
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! 

13 

13 

HI 0 

PULSE 

LO 255 

10 

. 

ief ! 0 ! 8 

_i_ 

8 

sawtooth 
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0 
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0 

PULSE HI 2 

LO 200 

0 

0 

8 j 0 

0 

NOISE 
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8 

12 
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NOISE 

10 

9 

0 

0 

0 

HI 1 

1 PULSE 

LO 0 

0 

0 

0 

13 

9 

19 

TRIANGLE 

5 

9 

9 

9 

HI 15 

PULSE 

LO • 0 
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Independent selection and 

-—-- - -----—1-1-1--- 

alteration of attack, decay, sus¬ 
tain and release is provided, as 

High 

Low 

Key 

Note 

High 

Low 

Key 

Note 

well as waveform and echo 
selection. When pulse 

waveform is selected, provision 

4 

73 

z 

G-2 

13 

156 

3 

G#-3 

is made for independent altera¬ 
tion of high and low pulse width. 

4 

139 

s 

C#-2 

14 

107 

E 

A-3 

Echo can be selected and is im¬ 
plemented by simple modula- 

4 

208 

X 

D-2 

15 

70 

4 

A#-3 

tion of the volume register. Note 
duration is automatically ad- 

5 

25 

D 

D*-2 

16 

47 

R 

B-3 

justed according to the attack 
and decay settings. The pur- 

5 

103 

c 

E-2 

17 

37 

T 

C-4 

pose of function keys and cur¬ 
rent status of all of the above 
parameters are displayed on 

5 

185 

V 

F-2 

18 

42 

6 

cr-4 

16 


63 


the screen. 

6 

G 

F#-2 

19 

Y 

D-4 

The musical note equivalent 
of keys and the corresponding 

6 

108 

B 

G-2 

20 

100 

7 

D#_4 

high and low frequency values 
are shown in the first table. 

6 

206 

H 

G#-2 

21 

154 

U 

E-4 

Refer to your Commodore 64 







Users Manual for the values re¬ 
quired for notes outside this oc¬ 

7 

53 

N 

A-2 

22 

227 

I 

P-4 

tave range. The second table 
suggests some combinations to 

7 
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J 

A#-2 

24 

63 

9 

F#-4 

try. 
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23 

M 

B-2 

25 
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0 

G-4 
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27 

56 

0 
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Lindisfarne NSW 

9 

21 

L 

C#-3 

28 
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• 

D-3 

30 
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+ 
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60 

0 

0 

DT-3 

32 
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E-3 
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75 

* 
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114 
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P-3 

36 
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3510 ONMGOTQ3520,3540. 
3520 B=B+1:IFD>15THENB 
3530 GOTO3560 
3540 RETURN 

3550 B=B-1•IFD<0THEND= 
3560 POKE1233,32:POKE1 
35?0 FORX=0TO2•POKE126 
3530 PRINTCHRf<19>CHR* 
3590 RB=fi'*16+B 
3600 PRINTCHRt(19 > TRB< 
3610 GOTO3500 
4000 GOSUB3300 
4010 ONMGOT04020.4040, 
4020 S=S+1 : IFS>15THENS 
4030 G 0 T040 t 3 
4040 RETURN 

4050 3=8--1 : IFS<0THENS= 
4060 POKE1313,32 : POKE1 
4070 FORR"0TO2 : POKE126 
4030 PRINTCHRT(19 >CHR* 
4090 3 R •— 5 '$■ 16 "f" R 
4100 PRINTCHRT- [9 - TRB< 
4110 GOTO4000 
4500 G i j S U B3300 
4510 0NMG0T04528.4540, 
4520 R=R+1:IFR>15THENR 
4 5 3 El G 0 T04560 
4540 RETURN 

4550 R=R-1:IFR<8THENR= 
4560i P 0 K E1398.. 32 ; P 0 !< E1 
4570 FORX=0TO2 : POKE136 
4580 PR I NTCHRT (19>CHR* 
4590 S R s $ j. 6 •+• p 
4600 P RIN T C !•••! R $ (. 19 ) T R B ( 
4 610 G 0 T04500 
5800 FORX=0TO2 : POKE164 
5010 PRINTCHRT(19 > CHRT 
5020 PRINTCHRT( 1 54 > TRB 
5030 PRINTCHR$<144 > TRB 
5840 PR I NT TRB ( 1 3 > "gfi ' 
5050 PRINTTRB<13> CHR$( 
5060 N “ 17 ; P 0 i< E54274 .■ 0 : 
5070 RETURN 

5500 FORX=0TO2 : POKE164 
5510 PRINTCHR$<1 9 > CURT 
5520 PR3' NTCHR$ 20 > TRB < 
5530 PRINTCHRT<144 >TRB 
5540 RRINTTRB<13) M EP 
5550 PRINTCHRT<154 > TRB 
5560 W~33 : P0KE542740 : 
5570 RETURN 
6000 G 0 S U B6300 
6 0 1 0 G 0 S U B3300 
6020 0N M G 0 T06030 , 6050 , 
6030 HP=HP+1 ■■ IFHP>15THi 
6040 G 0 T06070 
6050 P0KE54275, HP : RE TUI 
6060 HP=HP-1:IFHPC0THE! 
6070 POKE1637,32:POKE1« 
6030 PR I NTCHR$<19 > CHRT 
6090 G 0 T06018 
6300 14=65 















PR INTCHR* < 19 > CHR* < 144 > TRB <25 > 11 5 " 

PR I NTCHRf < 19 > CHR$ <154 > TRB < 13 > "HHHBMEfflfflEPFF" 
PRINTTRB<13>"03DFF" 

PR I NTTfiB < 13 > "BEOfflEBPFF" 

RETURN 
GOSUB6300 
OOSUB3300 

ONMGOT06536.. 6550, 6560 
LP=LP+10 : IFLP>255THENLP==255 
GDTO6570 

P0KE54274,LP : RETURN 
LP~LP-~18=IFL P C0 THENLP=0 

POKE 1717, 32 : POKE 1718,32 : POKE 17 19,32 __ 

PR INTCHR* < 19 > CHR$ < 144 > TRB < 12 > " mmmmMmmma "; LP 
G0T06510 

F0RX=8TO2 : POKE 164 9-UN, 32 : NEXT 

pr i nt chr$ < 1 9 > chr$ < 1 54 > trb < 13 > '' mmmmmmjP F" 

PR I NTTfiB < 13 > m>FF" 

PRINTCHRf<144)TRB <13>"03 "TRB <25>"129" 

PRINTTRB<13>"Up M 
PRINTCHR*<30)TRB <13> "EE! ON" 

W=129:POKE54274,0:P0KE54275,O 
RETURN 
GOSUB3300 

0NMG0T07528,7548,7568 
EC=EC+1 : IFEO101 HE NEC-18 
G0T07578 

I FEC : =0THEHVO’= 15 : POKERE+24, VO 
RETURN 

EOEC-l : IFEC<0THENEC=0 
POKE1873,32 ; POKE1879,32 
PR INTCHRT < 19 > CHE* < 144 > f RB < 13 >' 1 
G0T07588 

PR INTCHR* < 147 > CHR* < 5 > » WMWBSR TTfiCK i!" CHR* • 144 > " 

PR I NT TRB < 19 > CHE* < 5) "0542771" CHE* < 144) 11 9" 

PRINTTfiB<3 > CHE*<5 >"BBECRV i!"CHE*<144 >" 9" 

PR I NT •• PR I NTTfiB < 3 > CHE* < 5 >" B3USTRIN !*!" CHE* < 144 >" 

PR INTTRB < 19 > CHE* < 5 > "S54273?I H CHR* < 144 }" t" 

PR I NTTRB < 3 > CHE* < 5 > "B^ELERSE ■" CHE* < 144 > " 8" 

PR I NT ■ PR I NTTRB < 3 > CHE* <:!. 58 > "0TR1RNGLE3" CHE* < 30 > " 




!E* (144 >" 


? 0 PR I NT : PR I NTTRB < 3 > CHE* < 158 > "BSRWTOOTHI?" CHR* < 154 


(3 ON" 
BUFF" 


8888 

PRINT 

PRINTTRB 

• 3 CHRT < 15: 

3) "13F-UL.SE 

HIH 

3885 

PRINT! 

:HE*< 158 > 

'B54276"CHI 

<$< 1 44 y'E 

:!. 7" 

8898 

PRINT 

PRINTTRB 

■ 3 > CHE* < :!. 5-' 

3 > "E9PULSE 

l/jW 

3188 

PR I NT 

PRINTTRB 

< 3 > CHR* < 15: 

3 > "a-!OISE 

W. 

8118 

PRINT 

PRINTTRB 

<3>CURT <5;' 

"0ECI-IO 

m 

8128 

PRINTO 

• HR;$ : < 19 > C! 

HR* < 38TRB 1 

(SlV'JHEFl 

END 


"CHE*( 144> "0" 
CHR* < 154 >" 0JFF !! 
"CHR*< 144;' "0" 


PRINTTRB<31>"BF3 UP 
PR I NTTRB < 31 > ”B r 5 FILTER" 

PR I NTTRB < 31 > "[3F7 DOWN ” 
re; TURN 

DRTR 34,75, 30, 141,8, 147, 8, 8,9, 159 
DRTR 18,295, 27 .= 56,8,8, j. 2, 32, 13, 1.56 
DRTR 15,78,8,8,18,42,28,180,8,8 
BRT R 24,63,18,68,8,G,8,8,8,0,8,8 
DRT R 8,8,32,94,8,8, 6 , 188,5, 1.83 
DRTR 5,25, 14,187,8,8, 6 , 16,6,2:86 
DRTR 22,227,7,163,8,8,9,21,8,23 
DRTR 7,53,25,177,28,214,11,114 
DRTR 16, 47,4, 139, 17, 37,21, 154- 
DR T M 5, 1U5.. 1 2v J h,4,28y, 1 y, 63, 4,73 
DRTR 8,8,36,85,8,8,38,126 
DRTR 2,8,16,24,38,56,68,88,188,258 


:»yy, yyy, l yyy , yyyy, 5888,8888 
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PERSPECTIVE 


If you’ve ever wondered* how 
they do those fancy 3D 
graphics displays on the TV 
ads, then this program is for 
you. The program requires the 
user to supply the 3D coordi¬ 
nates of the vertices which 
make up an object. The user 
must also specify which points 
are to be joined by straight 
lines. Once the object has been 
defined, it is displayed on the 
high resolution graphics screen 
and can be scaled up or down 
or rotated about any of the 
three spatial axes using a joys¬ 
tick connected to Port 2. 

The data which defines the 
shape can also be saved on a 
tape file for subsequent reload¬ 
ing. 

Objects can be described 
with up to 48 vertices, allowing 
quite realistic ‘wire frame’ draw¬ 


ings to be displayed. The dis¬ 
play shows the object in true 
perspective, initially straight 
down the ‘Y’ axis. Rotation 
about the ‘Z’ axis is achieved by 
moving the joystick left or right, 
about the ‘X’ axis by moving the 
joystick up or down and about 
the ‘Y’ axis by pressing the fire 
button. With the fire button held 
down the object continues to ro¬ 
tate about the ‘Y’ axis. When 
the fire button is next pressed 
rotation recommences but in 
the opposite direction. Rotation 
about all three axes at once is 
thus possible. 

The HIRES graphics routines 
must be present in memory be¬ 
fore the program is run. The 
program itself is then loaded in 
two parts - a BASIC program 
which POKEs the perspective 
graphics routines and variables 


into memory, followed by the 
program which allows definition 
of shapes, scaling and tape file 
handling. The loader program 
splits the data into eleven sep¬ 
arate blocks to facilitate check¬ 
ing and correction of data. 

Shapes are rotated by incre¬ 
ments of two degrees and the 
speed of rotation is dependant 
on the complexity (number of 
vertices) of the object. Whilst 
rapid, smooth movement is not 
possible with a computer such 
as the Commodore 64, move¬ 
ment is acceptably fast - but 
judge that for yourself. 

Definition of shapes is 
accomplished in two stages: 

1) The X, Y and Z coordinates 
of each of the vertices which 
make up the object are first 
supplied by the user. In general, 
these coordinates should not 


10 POKE52,64 : P0KE56,64 
20 FORX=0TO45 
30 Sft=S IN < ft*ir/90 > *256 
40 SN= INT < SX+.5 > 

50 I FS:0255THENSX=255 
6 0 P 0 K E16334+X, s ft 
70 NEXT 

30 B I MX < 43 > : BI MV < 43 > : BIMZ < 43 > : B I ME < 96 > 

150 PR I NTCHR:£ < 147 } : PR I NT : PR INT ” INPUT SHfiPE FROM ." 

160 PR I NT : PR I NT ,! 1 „ TRF’F FT! F" PR I NT " 9. FF'vpifiRPri" • Pp J NT 

170 INPUTM . 

130 IFM<10RM32THEN150 
19 0 Ci N M G 0 S U B1083.. 2000 

288 P RIN T C H R :£ ( 14 7 > : pR IN T : P R I N T 1 ' L. 0 R BIN G S !•••!! ;; ! P E 11 


•?m5 

PP r NT : PP T NT " •• 

pprrqe py 

Tm !““ T T - 

; -• j) bisplr* 

•<" 

210 
228 

POKE16430,NV 

FOR T 1 T ONV 




240 

POKE i 643 1 ■+• I, f 

! P; F; V T 

• POKE 1 64? c 

i!4 -1 ,. 255 * •: v 

•' r T 

250 

POKE 165274-1, 

■j" '•''’* ' ' 

• POKE1657= 

:-4 I, -•2553 •' ’•! 

T 

260 

POKE 1S623-+-1, f 

ibs < z r :■ •' 

i 4 ; 7 1 

. f r, --255*':,." 

7 f T 


278 NEXT 

2 90 p i j K E1.64 31, N F 
300 FOR1=1TONE 



35 POKE 16 720 4-ME*- T = RBP F •: I • pnpF i pp i mp-. t , ...off*. r t -Ti '« 

329 NEXT .. 

338 37317536 

340 PCiKE53265, pEEF ■' 53265 »■ ’ I T <223 pPKF522 ?? . : •* i 
345 PPIMTCNRT* • ^ 7 * .... 

;35 0 p p J NT PP T !*••!T " 1 PF - P 1 !N 1 : * Pr3;F!• J J \-\ Pr:.*p* cp r- i-.-j 3 jpp t • < 

360 PRINT ’’ 2 „ SM VE PPESE ■■ ‘ T !• -IRPE 0^ rpp p p'[ i_• • 

3 65i P R J N T * 1 3 u R E - S r '•"! p l :: - p '■? F F !• . 1 J 3 \~\ !•-! p F " 

->7P pI:'.'* t j-.j'•* 11 4 _ r Kjp? !T ;•!!"[,! uopr'» 

33 J PR I NT" 5,. EXIT r -’ROG 

pCip pp r K!"r' Tkjpi !TM 

400 IFMC10RM 


jpuk-' " 









exceed +50 or -50 in mag¬ 
nitude, otherwise subsequent 
rotation of the shape can pro¬ 
duce somewhat strange results 
(the program will not crash how¬ 
ever, even under these cir¬ 
cumstances). If the coordinates 
are initially too large or too 
small, the object can be scaled 
(eg. a scaling factor of 2 will 
double the magnitude of all 
coordinates, whereas 0.5 will 
halve them). The object rotates 
about the point X = 0, Y = 0, 
Z = 0 so that positive and nega¬ 
tive coordinates are usually re¬ 
quired. 


If the example block shape 
above is to be a total of 40 units 
long in the X direction, 12 units 
in the Y direction and 20 units 
in the Z direction, then the coor¬ 
dinates of its eight vertices will 
be: 

Vertex X Y Z 

1 20 6 10 

2 20 -6 10 

3 20 -6 -10 

4 20 6 -10 

5 -20 6 10 

6 -20 -6 10 

7 -20 -6 -10 

8 -20 6 -10 


2) The program must then know 
which of the above vertices are 
to be joined by straight lines 
when the object is displayed. 
This is accomplished by supply¬ 
ing a series of ‘edge indices’. In 
the block example, the indices 
could be: 

-1,2,3,4,1,5,6,7,8,5,-2,6,-3,7,- 
4,8 - a total of 16 indices. 

The magnitude of the index 
corresponds to one of the ver¬ 
tex numbers above, and a 
negative index indicates ‘Do not 
draw to this point’. Taken in 
stages, the indices above will 
produce the following action: 


1 do not draw 

2 draw from 2 to 1 

3 draw from 3 to 2 

4 draw from 4 to 3 

1 draw from 1 to 4 

5 draw from 5 to 1 

6 draw from 6 to 5 

7 draw from 7 to 6 

8 draw from 8 to 7 

5 draw from 5 to 8 

-2 do not draw 

6 draw from 6 to 2 

-3 do not draw 

7 draw from 7 to 3 

-4 do not draw 

8 draw from 8 to 4 

In each case, if the index is 
positive, a line is drawn from 
that vertex to the previous one. 
The first index must always be 
negative because there is no 
‘previous one’ in this case. 

The program allows for up to 
96 indices to be supplied, but 
the speed of drawing is im¬ 
proved by minimizing the 
number of indices (ie. minimize 
the number of ‘do not draw’). 

M. Griffiths 
Lindisfarne NSW 


41 y y N M G 0 I U 3 3 8, 3808.428 , i 3 8 .■ 7 8 8 

428 P RIN T C H R $ < 1 4 7 > : p RIW T : IN p ' j I ! 1 E N T E R 8 C RIN G F ft C T 0 R'' ; !•••“ 

438 IFFClTHEN588 

435 F2=8 

448 F0RI-1T0NV 

458 IFRB:. : - X < I > *F > >58THENF2-1 

468 IFRBS<V<I>*F> >58THENF2=1 

478 I FRBS < Z (I > *F :• 358THEMF2-1 

488 NEXT 

498 IFF238THENPRI NT M SCRL. ING FACTOR TOG HIGH " : PR I NT : G8T0358 

588 FORI=1TONV 

51.8 X( I >=X< I 'y*F 

528 V (I > = V < I > #F 

538 Z(1)=Z(I)#F 

548 NEXT 

558 GOTO280 

788 END 

1888 PRINTCHR$<147> : PRINT : PRINT"INSERT BATA TAPE THEN PRESS RETURN" 
1818 GEim ■ IFMTOCHRT 13 > THEN 1 81 8 
1828 OPEN 1 ,1,8,"SHAPE" 

1838 INPUT#l.NV 
1848 FORI=1TONV 
1858 INPUT#1,X <I> 

1068 I NPUT# 1,'t' € I > 

1078 INPUT#1,Z(I> 

1880 NEXT 
1090 I NPUT#1,NE 
1100 FORI=1TONE 
1110 INPIJT#l,Ea> 

1120 NEXT 
1130 CLOSE1 
1140 RETURN 


> 
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PERSPECTIVE 

v 

2000 PRINTCHRT<147>:PRINT:PRINT M NO. OF VERTICES" 

2010 INPUT" (MAX I MUM 48 >" ■; NV 
2020 IFNVC1ORNV>48THEN20O0 
2830 FOR1=1TONV 

2040 PR I NTCHRT < 147 > •' PR I NT" VERTEX"; I 
2050 PR I NT" < CO-OR li I NATE RANGE -50 TO 50 > 

2060 I NPUT" X="X < I > 

2065 IFX<I)C-50ORX<I>35OTHEN2040 
2070 I NPUT "V”"V< I > 

2075 IFV(I>C-50ORV<I>>50THEN2840 
2030 I NPUT" Z="; Z < I ;■ 

2085 IFZ(I> C-50ORZ<I>350THEN204O 
2090 NEXT 

2100 PR INTCHRT (147 > ■' PR 1 NT : PR I NT" NO. OF EDGE INI) I CES !l 
21 .1. 0 I NPUT" < MAX I MUM 96 V ; NF 
2115 IFNEC20RNE>96THEN2100 
2120 FOR 1 = 1 TONE 

2130 PRINTCHRT<147>:PRINT"INDEX";I 
2140 I INPUT" < NEC AT IVE TO SUPERS 3 DRAW I NO >"; E (I > 

2150 NEXT 
2160 RETURN 

3 0 0 0 P RIN T C H F: T ( 14 7 > • p RIN T ; P RIN T' ! IN S E R T B L A N !< D A T R T R p E R N D 
PRESS PET- 1 JRN" 

3010 GETMT : IFMT<>CHR$(j 3THEN3010 
3020 OPEN1.. J , 1 , "P'HHPP" 

3030 PRINT#!.. NV 

3 0 4 q p 0 R T 1 T Q m < 

3050 PRINT#1,X<I> 

3030 pp j j-..| t# 1, y i 

3070 PRINT#!,Z(I> 

3080 NEXT 
3090 PR INT#1,NE 
3100 FOR I"ITONE 
3110 PRINT#1;E<I> 

3120 NEXT 
3130 CLOSE1 

31 40 pRINTCHF :t < 147> • pRINT ! 'SRVING C0MF : *LETE" 

3150 GOT03501 


5 PRINTCHRT<147 >:PRINT:PRINTTAB<3>"0NOUTINES TAKE 109 SECONDS TO 
LOAD":PRINT 
10 DI MSP '• 11 •' : DI MCA < 11 > 

100”FORX=1T 011 
110 READSP< X> : READCH<X> 

120 NEXT 
130 FORX s 1 TO11 
148 GOSUB1000 

150 IFSP"SP(X>RNDCH=CH(X> THEN170 
160 PRINT"ERROR IN BLOCK”;X : END 
170 CH=0•PRINT"BLOCK";X;"LOADED":NEXT 
180 PRINT:PRINTTAB(10 > M @ROUTINES LOADED OK":END 
1808 READSP 

1010 RE AD A $ : I FAT"" " THENRETURN 

1020 L-=ASC (LEFTT ( AT, 1) >-48 : R~ASC<RIGHTT (AT, 1 > > -48 
1030 F'U== L+1 7 # L_> 11 ) T’ 16+R +1 7 T' R„> 11; 

1040 POKESP.. PC : CH=CH+PC 
1050 . S F : ‘=S P +1 : G 0 T 01010 

4000 DATA 17376,15061,17536,23647,17696,19175,17356,19595,18G16,1 
4018 DATA 18176,19006,18336,17639,18496,16283,18656, 13524, 18816, 1 
4020 DATA 13979,17701 
4999 DATA-17216 














PERSPECTIVE 


v 


5000 DflTft EC,31,43,F0,1E,38,ED,2F 
501O DATA 43,48,98,ED,30,43,1O,1C 
5820 DflTft fl8,68,49,FF,18,69,01,48 
5030 DATA 98,49,FF,69,00,AE,31,43 
5040 DATA 4C,6C,43,18,6D,2F,43,48 
5050 DATA 98,6D,30,43,A8,68,60,EA 
5060 DATA 8D,2B,43,8D,2C,43,A2,11 
5070 DATA 18,6E,2C,43,6E,2B,43,6E 
5080 DATA 2A,43,6E,29,43,90,13,18 
5090 DATA AD,27,43,6D,2B,43,8D,2E 
5100 DATA 43,AD,28,43,6D,2C,43,8D 
5110 DATA 2C,43,CA,D0,DC,60,EA,EA 
5120 DATA A9,00,8D, 37, 43, 3D, 2'D, 43 
5130 DATA 3D,2E,43,AD,22,43,DO,07 
5140 DATA 3D,2F,43,8D,30,43,60,A2 
5150 DATA 10,2E,2F,43,2E,30,43,2E 
5160 DATA 2D,43,2E,2E,43,38,AD,2D 
5170 DATA 43,ED,22,43,A8,AD,2E,43 
5180 DATA ED,37,43,90,06,SC,2D,43 
5190 DATA 3D,2E,43,CA,E0,DE,2E,2F,* 

5199 DATA 17376 

5200 DAT A 43,2E,30,43,60,EA,EA,EA 
5210 DATA BD,A6,42,DO,12,BD,AO,42 
5220 DATA C9,2D,DO,07,DE,A6,42,DE 
5230 DATA AO,42,60,FE,AO,42,60,BD 
5240 DATA AO,42,DO,13,FE,A6,42,FE 
5250 DAT A AO,42,BC,AC,42,FO,02,C8 
5260 DATA C3,88,98,9D,AC,42,60,DE 
5270 DftTfl A0, 42,60, EA, EA, EA, EA, EA 
5280 DATA 20,E8,43,CA,CA,CA,1O,F8 
5290 DAT A A9,01,3D,34,43,60,EA,EA 
5300 DATA BD,A6,42,DO,1C,BD,AO,42 
531O DATA DO,13,DE,A6,42,FE,AO,42 
5320 DAT A BC,AC,42,F0,02,C8,C8,88 
5330 DATA 98,9D,AC,42,60,DE,AO,42 
5340 DAT A 60,BD,AO,42,C9,2D,DO,07 
5350 DATA FE,A6.42,DE,A0,42,60.FE 
5360 DATA AO,42,60,EA,EA,EA,EA,EA 
5370 DATA Eft,20,30,44,CA,CA,CA,10 
5330 DAT A F8,A9,01,8D,34,43,60,EA 
5390 DATA Eft,Eft,EA,EA,Eft,EA,Eft,EA.* 

5399 DATA 17536 

5400 DAT A A2,02,A9,2D,9D,A3,42,CA 
541O DATA 1O,FA,A2,02,A9,FF,9D.A9 
5420 DATA 42,9D,AC,42,9D,AF,42,CA 
5430 DATA 10,F4,A2,02,A9,00,3D,AO 
5440 DATA 42,9D,A6,42.CA.10,F7.3D 
5450 DATA AE,42,3D,B1,42,8D,32,43 
5460 DATA 3D,33,43,20,BO,C1,A2,05 
5470 DATA BC,AO,42,B9,00,40,9D,B2 
5480 DATA 42,CA,10,F4,AD,B4,42,3D 
5490 DATA 27,43,AD,B5,42,8D,29,43 
5500 DAT A A9,O0,3D,23,43,8D,2A,43 
551O DATA 20,70,43,AD,29,43,8D,BA 
5520 DATA 42,AD,2A,43,8D,C3,42,A2 
5530 DATA 00,AD,AE,42,CD,AF,42,FO 
5540 Dfttft 01,CA,8E,CC,42,AD,B6,42 
5550 DATA 3D,29,43,A9,00,3D,2A,43 
5560 DATA 20, 70,43, AD, 29,43,8D, DC 
5570 DATA 42,SB,D5,42,AD,2A,43,AD 
5580 DATA E0,42,8D,D9,42,A2,FF,AD 
5530 DATA AE, 42, CD, E'0, 42, F0, 01, E8, * 
5599 DATA 17696 


5600 DATA 8E,E3,42,8E,E§,42,AD,E3 
5610 DATA 42,8D,29,43,A9,00,3D,2A 
5620 DATA 43,20,70,43,AD,29,43,8D 
5630 DATA DB,42,8D,D6,42,AD,2A,43 
5640 DATA 8D,DF,42,8D,DA,42,A2,OO 
5650 DATA AO, FF,AD,AE,42,CD,AD,42 
5660 DATA F0,02,C8,CA,8E,E6,42,8C 
5670 DATA E7,42,AD,E3,42,8D,27,43 
5680 DATA AD,B7,42,8D,29,43,A9,00 
5690 DATA 8D,28,43,8D,2ft,43,20,70 
5700 DATA 43,AD,29,43,8D,D4,42,8D 
5710 DATA DD, 42, AD, 2A, 43,8D, D8,42 
5720 DATA 3D,El,42,A2,FF,AD,AD,42 
5730 DATA CD,B1,42,F0,01,E8,8E,E4 
5740 DATA 42,3E,E9,42,AD,B5,42,8D 
5750 DATA 29,43,A9,00,8D,2A,43,20 
5760 DATA 70,43,AD,29,43,8D,BB,42 
5770 DATA AD,2A,43,8D,C4,42,A2,00 
5780 DATA AD,AD,42,CD,AF,42,FO,01 
5790 DATA CA,3E,CD,42,AD,B6,42,8D,* 
5799 DATA 17356 

530O DATA 27,43,AD,B7,42,8D,29,43 
581O DATA A9,OO,SB,28,43,3D,2A,43 
5320 DATA 20,70,43,AD,29,43,3D,D3 
5330 DATA 42,3D,DE,42,AD,2A,43,8D 
5340 DATA D7,42,8D,E2,42,A2,OO,A0 
5850 DATA FF, AD,BO,42,CD,B1,42,FA 
5360 DATA 02,CA,C3,3E,E3,42,3C,EA 
5870 DATA 42,AD,B5,42,8D,29,43,A9 
5880 DATA OO,8D,2A i 43,20,70,43,AD 
5390 DATA 29,43,8D,BC,42,AD,2A,43 
59O0 DATA 3D, C5, 42, A2, OO, AD, E*0,42 
591O DATA CD,AF,42,F0,01,CA,8E,CE 
5920 DATA 42,AD,B5,42,8D,27,43,AD 
5930 DATA B7,42,3D,29,43,A9,OO,3D 
5940 DATA 28,43,8D,2A,43,20,70,43 
5950 DATA AD,29,43,3D,C0,42,AD,2A 
5960 DATA 43,3D,C9,42,A2.OO.AD,AF 
5970 DATA 42,CD,B1,42,F6,01,CA,8E 
5980 DATA D2,42,AD,B2,42,3D,C6,42 
5990 DATA A9,OO,8D,BD,42,AD,AC,42.4 

5999 DATA 18016 

6000 DATA 3D,CF,42,A2,03,18,7E > C3 
601O DATA 42,7E,BA,42,18,7E,D7,42 
6020 DATA 7E,D3,42,13,7E,DF,42,7E 
6030 DATA DB,42,CA,10,E8,18,6E,C9 
604O DATA 42,6E,C0,42,A0,03,8C,35 
605O DATA 43,AD,B2,42,8D,28,43,A9 
6060 DATA OO,8D,27,43,AC,35,43,BE 
6070 DATA DB,42,3E,29,43,BE,DF,42 
6080 DATA 8E,2A,43,20,70,43,AC,35 
6090 DATA 43,A2,O0,AD,AC,42,D9,E7 
70O0 DATA 42, F0,01, CA, 1:9, E3,42,3D 
7O10 DATA 31,43,B9,B3,42,3D,2F,43 
7020 DATA E9,B7,42,3D,30,43,AD,2B 
7030 DATA 43,AC,2C,43,20,40,43,43 
704O DATA 98,AC,35,4^,99,EF,42,63 
7O50 DATA 99,EB,42,3A,99,F3,42,CE 
706O DATA 35,43,10,AB,A0,01,B9,EB 
707O DATA 42, 99,B8,42,B9,EF,42,93 
7080 DATA Cl,42,B9,F3,42,99,CA,42 
7090 DATA 88,10,EB,A0,01,B9,ED,42,# 
7099 DATA 18176 


710O DATA 99,BE,42,B9,FI,42,99,C7 
7110 DATA 42,B9,F5,42,99,DO,42,38 
7120 DATA 10,EE,AC,2E,40,SC,35,43 
7130 DATA B9,5F,40,3D,31,43,B9, 2F 
7140 DATA 40,3D,2F,43,AE,CD■42,A9 
7150 DATA 00,8D,30,43,A8,AD,C4,42 
7160 DATA 20,40,43,3E,OO,43,3D,FD 
7170 DATA 42,AC,35,43,B9,BF,40,3D 
7180 DATA 31,43,B9,8F,40,8D,2F,43 
7190 DATA AE,CE,42,A9,00,8D,30,43 
7200 DATA A3,AD,C5,42,20,40,43,8E 
7210 DATA 01,43,3D,FE,42,AC,35,43 
7220 DATA B9,IF,41,8B,31,43,B9,EF 
7230 DATA 40,8D,2F,43,AE,CF,42,A9 
7240 DATA OO,8D,30,43,A8,AD,C6.42 
7250 DATA 20,40,43,8E,02,43,8D,FF 
7260 DATA 42, AO, 02, 8C,36,43,B9,E3 
7270 DATA 42,8D,29,43,B9,C1,42.8D 
7280 DATA 2A,43,B9,FD,42,8D,23,43 
7290 DATA A9,00,8D,27.43.20,70,43.* 

7299 DATA 13336 

7300 DATA AD,2B,43,AC,36,43,99,03 
7310 DATA 43,AD,2C,43,99,06,43.A2 
7320 DATA 00,B9,CA,42,D9,00,43,FO 
7330 DATA 01,CA,8fl,99,09,43,CE,36 
7340 DATA 43,AC,36,43,10,CO,A0, 02 
7350 DATA 8C,36,43,B9,BB,42,3D,29 
7360 DATA 43,B9,C4,42,8D,2A,43,B9 
7370 DATA FD,42,8D,23,43,A9,00,3D 
7380 DATA 27,43,20,70,43,AD,2B,43 
7390 DATA AC,36,43,99,0C,43,AD,2C 
740O DATA 43,99,OF,43,A2,OO,B9,CD 
7410 DATA 42,B9,00,43,F0,01.CA,8A 
7420 DATA 99,12,43,CE,36,43,AC,36 
7430 DATA 43,10,CO,A0,02,8C,36.43 
7440 DATA B9,BE,42,3D,29,43,B9.C7 
7450 DATA 42,3D,2A,43,B9,FD,42,3D 
7460 DATA 28,43,39,00,3D,27,43,20 
7470 DATA 70,43,AD,2B.43,AC,36,43 
7480 DATA 99,15,43,AD,2C,43,99,13 
7490 DATA 43, A2,00, B9, DO, 42, D9,00,4-: 

7499 DATA 13496 

7500 DATA 43,FO,01,CA,8A,99,IB,43 
751O DATA CE,36,43,AC,36.43,10,C0 
7520 DATA AD,03,43,SD,2F,43.AD.06 
7530 DATA 43,3D,30,43,AD,09,43,8D 
7540 DAT A 31,43,AD,04,43,AC,07,43 
7550 DATA AE,0A,43,20,40.43.43,AD 
7560 DATA 05,43,8D,2F,43,AD,08,48 
7570 DATA 3D,30,43,AD,OB,43,3D,31 
7530 DATA 43,68,20,40,43,8D.IE.48 
7590 DATA SC,1F,43,8E,20, 48 ,AD,of: 
76O0 DATA 43,8B,2F,43,AD,OF,43,8D 
7610 DATA 30,43,AD,12,43,8D,31,43 
7620 DATA AD,OD,43,AC,10,43,AE,13 
7630 DATA 43,20,40,43,48,AD,OE,43 
7640 DATA 3D,2F,43,AD,11,43,3D,80 
7650 DATA 43,AD,14,43,3D,31,43,68 
7660 DATA 20,40,43,8D,21,43,3C,22 
7670 DATA 43,3E,23,43,AD,15,43.8D 
7680 DATA 2F,43,AD,18,43,3D,30.43 
7690 DATA AD,IB,43,8D,31,43,AD,16,* 
7699 DATA 18656 


7700 DATA 43,AC,19,43,AE,1C,43,20 
771O DATA 40,43,48,AD,17,43,8D,2F 
7720 DATA 43,AD,1A,43,8D,30,43,AD 
7730 DATA ID,43,8D,31,43,68,20,40 
7740 DATA 43,3D,24,43,8C,25,43,8E 
7750 DATA 26,43,AD,IE,43,8D,2F,43 
7760 DATA AD,1F,43,8D,30,43,20,AO 
7770 DATA 43,AD,20,43,A2,OO,CD,23 
7780 DATA 43,FO,O1,CA,8E,31,43,A9 
7790 DATA 9F,AO,OO,A2,OO,20,40,43 
7300 DATA 48,98,AC,35,43,99,3F,42 
781O DATA 68,99,OF,42,AD,24,43,8B 
7820 DATA 2F,43,AD,25,43,8D,30,43 
7830 DATA 20,AO,43,AD,26,43,02,FF 
7840 DATA CD,23,43,F0,01,E8,8E,31 
7850 DATA 43,A9,63,AO,OO,A2,OO,20 
7860 DATA 40,43,AC,35,43,99,6F,42 
7870 DATA CE,35,43,FO,06,AC,35,43 
7880 DATA 4C,18,47,20,CE,C1,09,O1 
7390 DATA 85,FD,AD,2F,40,8D,35,43,* 

7899 DATA 18816 

7900 DATA AC,35,43,B9,AF,41,DO.19 
7910 DATA B9,4F,41,AS,B9,OF,42,8D 
7920 DATA AB,Cl,B9,3F,42,8D,AC,Cl 
7930 DATA B9,6F,42,3D,AA,C1,20,7F 
7940 DATA C2,AC,35,43,B9,4F,41,AO 
7950 DATA B9,OF,42,8D,AE,C1,B9,3F 
7960 DATA 42,8D,AF,C1,B9,6F,42,8D 
7970 DATA AD,C1,CE,35,43,DO,C1,09 
7980 DATA OO,8D,34,43,AD,0O,DC,02 
7990 DATA 03,4A,BO,05,48,20,20,44 
80O0 DATA 63,4A,BO,05,48,20,69,44 
8010 DATA 68,A2,04,4A,BO,05,48,20 
3020 DATA 20,44,63,4A,BO,05,48,20 
8O30 DATA 69,44,68,4A,BO,21,OD,32 
3040 DATA 43,DO,OB,AC,33,43,F0,02 
8050 DATA C8,C8,88,3C,33,43,A2,05 
3060 DATA AD,33,43,DO,05,20,20,44 
8070 DATA DO,07,20,69,44,DO,02,A9 
808O DATA OO,8D,32,43,A5,C5,C9,03 
809O DATA FO, 08, AD, 34,43, FO, A5,4": 
8100 DATA B6,44,60,* 

READY. H 



START 

MATHS 


Start Maths is an addition and 
subtraction drilling program for 
the Commodore 64 suitable for 
ages 6 to 12. It first asks for the 
level of difficulty; enter ‘1’ for 
easy to ‘5’ for hard. You will 
then be given five sums involv¬ 
ing addition and five involving 
subtraction. 

After the ten sums have been 
completed you will be asked if 
you want any more sums. If you 
require more press ‘y\ if not 
then press ‘n’ to be returned to 
BASIC. 

Simon Jones 
Holder ACT 


5 POKE53280,14:P0KE53281,14 
10 PR INT; 

20 PRINT"liaH * * $ START MATHS*** 

30 IFSS =0THENGOSUB800:SS =1 

40 PR I NT WILL BE GIVEN 10 SUMS INVOLVING- 

50 PR INT"AND SUBTRACTION TO SOLVE." 

80 PR INT:PR INT:PR INT"LEVEL OF SUMS < 1-EASY. .5-HARD) 

70 GET L$: IFL$>"0"ANDL3K "6"THEN90 
80 GOTO70 


ADDITION "; 


90 L=VAL(L$> 


100 I NPlJT"SfelSl-'JHAT IS YOUR NAME " ; NA£ 

110 PRINT"(gaaa PRESS ANY KEY TO START 

120 POKE 198,0:WAIT198,1:POKE 138,0 
130 FGRSM=1TO10 


1*0 PR I NT "Q" 
150 U=1 :A 1 = 1 


1 80 N1 - I NT-; RND-; 0 > * 1 0 tL > 

170 N2 =INT< RNDC 0)* 10 tL > 

1 80 IFN1 < N2THEN1 80 

1 30 I FSM< 6THENS^-= " + " : AN = N 1 +N2 
230 IFSM>5THENS$="-":AN=N1-N£ 

2 1 0 N 1 $ = 3TR$< N1 > : N2$=STR$< N2 > 

820 L 1 =LENC N1$ ) - 1 : L2 =LEN< N2$ > - 1 

230 PR INT:PR INT:PR INT:PR INTTABC 15-LEN< N1 $));N1$ 
2^0 I FS*= " + " THENPR I NT : PR INTTABC 7 ) " m-na" ; 
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250 IFS$= " - " THENPR I NTs PR INTTAB( 7) "QHl" .? 

260 PR INJ "gEESS" ; 

270 PR INTSPC< 15-LENCN2$)) ; N2* 

280 PR INT" 1 0 " 

230 PRINT" — . » 

300 PR I NT : PR INTSPCC 15 - A 1 > " ? " 

310 PRINT "Wmgm" ; : PR I NTSPCC lS-Al)"?" 

328 POKE 198,0 

330 GET A$:IFA$=""THEN330 

340 printprint" 

350 IFA$>="0"ANDA*<":"THEN370 
360 GOTO330 

378 PRINT ,, ia®BfflH%- :PR INTSPCC 15-A1);A* 

380 IFA$=MID$>< STR$C AN) ,LENC STRS* AN) ) -A 1 + 1,1 )THENGOTO450 
390 tFm<* ^THFMPP tmt j i " : PR INT"3TRY AGAIN. N 
:W=W+lsGOSUB570 :GOTO300 

400 nnsUR57Q : PR T NT ' 'fcignirtrtnmd amM^ ANSWER " : PR I NT "jj3l S : W= 1 

410 PRINT^gHHiiaai'^SPCC 15-A1 ); 

420 PRINTMID$C STR$C AN),LENC STR$C AN))-A 1 + 1,1) 

430 IFA 1=LENCSTR*C AN))-1THENFORI=1TO800:NEXT:NEXTSM:G0T0510 
440 A1=A1 + 1:GOTO300 
450 REM CORRECT ANSWER 

460 IFA1=LENC STR*C AN))-1THENGOSUB640:SC=SC + 1:GOSUB750:NEXTSM:G0T0510 
470 A 1=A1 + 1 

490 GOSUB640:GOTO300 

500 FOR I = 1T01000:NEXTI:NEXTSM 

510 PRINT"Q" / 

520 PR I NT "SHHBSnDB^O YOU WANT SOME MORE SUMS WTWWtm Wt?M m 9 

530 GETC$:IFC*=""THEN530 

540 IFC*="N"THEN1120 

550 IFC$="Y"THEN10 

560 GOTO530 

570 V=54272 

580 FOR I =0TO24 : POKES/ +1,0: NEXT I 
590 POKEV+1 ,6:POKEV,206 
600 POKEV +5 ,50 : POKES/ +6,255 
610 POKEV+4,33:POKEV+24,15 

620 FOR 1 = 1TO380:NEXTI:POKEV+1,0:POKEV,0 
630 RETURN 
640 7=54272 

650 FOR I=0TO24:POKEV+1,0:NEXTI 
660 POKEV+1,91:pOKEV,140 
670 POKEV+5,50:POKEV+6,255 
680 POKEV +4,17:POKEV +24,15 
690 FOR I = 1 TO 150:NEXTI 
700 POKEV+1,63:POKEV,149 

710 FOR I = 1T0150:NEXTI:POKEV+1 ,0:POKEV,0 
720 RETURN 
730 S =54272 

740 FOR I=0TO24:POKEV +I ,0:NEXTI 
750 PR INT"Q" * 

760 PR I NT **(NSREAT WORK " ; NA" !!!■•• 

770 FOR I = 1T0255STEP15:POKE53280,I:P0KE53281,1:FORZ = 1TO80:NEXTZ:NEXTI 


780 POKE53230,14:P0KE53281,14 
790 RETURN 
800 3=54272 

810 FOR I=0TO24:POKES+I,0:NEXTI 

820 POKES+3,7:POKES + 2,75 

330 POKES +24,0 

840 FOR 1 = 1TO20 

850 READ H,L,D 

360 POKES+1,H:POKES,L 

870 POKES+5,64:POKES+6,75 

880 POKES + 4 ,65:POKES +24,15 

880 FORZ = 1 TOD*3:NEXTZ 

900 NEXTI 

3 10 FOR I=0TO24:POKES+1,0:NEXTI:RETURN 

920 DATA 9,153,30:REM D 

930 DATA 10,205,20:REM E 

940 DATA 11,114,20:REM F 

950 DATA 12,216,20:REM G 


360 DATA 8,147,20:REM C 
970 DATA 10,205,20:REM E 
930 DATA 9,159,20:REM D 


990 DATA 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 
1070 DATA 
1030 DATA 
1090 DATA 
1100 DATA 
1 110 DATA 
1 120 END 


3,23,20:REM B 
11,114,20:REM F 
10,205,20:REM E 
9,159,20:REM D 
8,147,20:REM C 
12,216,20:REM G 
11,114,20:REM F 
9,159,20:REM D 
10,205,20:REM E 
3,147,20:REM C 
9,159,20:REM D 
8,23,20:REM B 
8,1 47,40:REM C 
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What’s needed for the Commo¬ 
dore is a package of cheap 
graphics routines which will en¬ 
able high resolution graphics 
mode and make it easy to plot 
dots, lines, circles et cetera - so 
here they are. 

The HIRES package of 
machine code subroutines is 
loaded into the Commodore 
64’s memory from $C000 
(49152) to $C901 (51457), an 
area of memory which is not 
used by BASIC. The routines 
are accessible from BASIC by 
simple POKE and SYS com¬ 
mands. They allow setting up of 
bit mapped (high resolution) 
graphics mode, clearing the bit 
mapped screen, setting the col¬ 
our of the foreground and back¬ 
ground, and the plotting of dots, 
lines, circles and ellipses. With 
these routines in memory, you 
can write your own BASIC pro¬ 
grams using the subroutines 
described below. 

The subroutines which make up 
the package may be found at 
the following memory locations: 
Subroutine SETUP $C1B0 


(49584) to $C1CA 
Subroutine CLRSCN $C1CB 
(49611) to $C203 
Subroutine SETCOLR $C204 
(49668) to $C22E 
Subroutine DOT $C22F (49711) 
to $C27E 

Subroutine LINE $C27F 
(49791) to $C475 
Subroutine CIRCLE $C721 
(50977) to $C901 
The remaining memory space is 
reserved for variables used by 
the routines. 

To initialize bit mapped 
mode: 

SYS 49584 (SETUP) 

This routine calls two other 
routines: 

a) Subroutine SLRSCN at 
49611 which clears the bit map. 
This routine can be used by it¬ 
self to clear the screen at any 
time by (SYS 49611). 

b) Subroutine SETCOLR at 
49668 which sets the colour of 
each area of the bit map. The 
colour defaults to 3 (black on 
cyan), but may be altered by 
POKEing 49681 ($C211) with 
the number shown below, be¬ 


fore calling either SETCOLR or 
SETUP. 

POKE 49681, N where N = SC 
+ FO*16 

SC is the required screen col¬ 
our and FO..is the required 
foreground (dot) colour. In both 
cases, zero = black, one = 
white, two = red, etc ... 

To plot a dot at any location 
(X,Y) on the screen, where X = 
0 to 319 and Y = 0 to 199, X 
must first be split into high and 
low bytes, so a complete 
routine would be: 

SYS 49584 (SETUP) 

POKE 253,1 '(SWITCH TOG¬ 
GLE ON) 

HX - INT(X/256):LX = X-256*HX 
(SPLIT X) 

POKE 49581,Y:POKE 
49582,LX:POKE 49583,HX 
(POKE X,Y) 

SYS 49711 (DOT) 

The last three lines can obvi¬ 
ously be written as a BASIC 
subroutine and called whenever 
required. 

To plot a line on the screen 
the switch (2543) must be set 
as above, then the starting 
(XI ,Y 1) and finishing (X2,Y2) 
coordinates of the line must be 
POKEd. Again each X coordi¬ 
nate must be split into two 
bytes. 


40 REM HIRES ROUTINES 

50 REM 

60 REM MIKE GRIFFITHS - 1983 

70 REM 
80 REM 

90 PRINTCHRSC 147)SPRINT:PRINTTAB<4)“ROUTINES TAKE 104 SECONDS TO LOAD" 
100 LS = 49152:HS=49360:SS=8192:C=49352 
110 FORY=0TG24 
120 FORX =0TO7 

130 HB=I NIC<SS+X>/256>:LB=SS +X-HB*256 

140 POKELS ,LB:POKEHS, HB 

150 LS = LS + 1 :HS =HS +1 

160 NEXT:SS=SS+320:NEXT 

170 BI = 128 

130 FORX =0TO7 

190 POKE43568+X,BI 

200 BI=BI/2:NEXT 

2 10 FORX = 0TO255 

220 SX=S INC ,f*X/5 12 ) *65536 

230 HB=INT<SX/256):LB=SX-256*HB 

240 POKE50304+X,LB:POKE50560+X ,HB 

250 NEXT 

260 POKEC+4,0:POKED+5,0:POKEC+6,100:POKEC + 7,0 
1000 GOSUB1500 
1005 PRINT 

10 10 IFCH = 93583ANDSP =50294THEN1060 

1050 PR INT"DATA CHECKSUM ERROR IN BLOCK ONE M :END 
1060 CH=0:GOSUB1500 
1070 PRINT 

1080 IFCH =35743ANDSP =51458THENPRINT"OK TO LOAD APPLICATIONS PROGRAM":END 
1030 PR INT"DATA CHECKSUM ERROR IN BLOCK TWO":END 
1500 READ SP 

1520 READAS:IFAS="*"THENRETURN 

1530 L = ASC< LEFTS-: AS, 1 > > -48 :R=ASC( RIGHTS-: AS,1>) -43 
1540 PC=< L+7*< L>1 1 > >*16+R + 7*< R> 1 1 ) 

1550 F'OKESP , PC : CH =CH +PC 


SYS 49584 (SETUP) 

POKE 253,1 (SWITCH) 

POKE 49581 ,Y1:POKE 
49578,Y2 (POKE Y1,Y2) 

HX = INT(X1/256):LX = XI -256* 
HX (SPLIT XI) 

POKE 49582, 
LX:POKE49583,HX 
(POKE XI) 

HX = INT(X2/256):LKX = X2- 
256*HX (SPLIT X2) 

POKE 49579,LX:POKE 
49580,HX (POKE X2) 

SYS 49791 (LINE) 

Again, the last six lines can 
be set up as a subroutine in 
BASIC to plot any line (X1,Y1) 


100 C=49352 
200 SYS 49584 
300 POKE 253,1 


700 POKE C+3,RX 

800 POKE C +4,RY 

900 POKE C +5,IA I POKE C+6,FA 

1000 POKE C+7 ,GUI 

1010 SYS 50977 


to (X2,Y2). It should be noted 
that SETUP may only need to 
be called once in a particular 
program, and the switch re¬ 
mains set unless SETUP, 
CLRSCN or POKE 253,0 is 
used. These two lines are, 
therefore, excluded from the 
subroutine. 

To plot a circle, ellipse or arc 
a large number of parameters 
can be specified to describe the 
required curve. The routine 
below includes all options; note 
that a variable C has been used 
to simplify the routine. 


< SET o 
(SETUP) 

< SWITCH) 


( POKE RX) 

( POKE RY) 
(POKE IA ,FA ) 
(POKE GW) 

(CIRCLE) 


(XC,YC) are the coordinates 
of the centre of the circle or el¬ 
lipse, with XC again having to 
be split into two bytes. RX is the 
radius in the X direction and RY 
is the radius in the Y direction 
(up to 255 each). IA and FA are 
the initial angle and final angle 
respectively, where a full circle 
has 100 degrees. Curves are 
always drawn clockwise, so 0 
= 'east', 25 = ‘south’, 50 = 
‘west’, and 75 = ‘north’. 

GW is a variable which can 
be used to produce dotted 
curves. GW = 0 or 1 will pro¬ 
duce solid curves up to radii of 
180. Setting GW to a higher 
number (for example 10) will 
produce a dotted curve (GW = 
gap width between dots). 

The above subroutine can be 
simplified considerably if all op¬ 
tions are not required (default 
conditions will apply). If only 
solid curves are required, leave 
out line 1000 (GW defaults to 
zero). If complete curves are re¬ 
quired rather than arcs, leave 
out line 900 (IA defaults to zero, 
FA defaults to 100). IF circles 
are required rather than el¬ 
lipses, leave out line 800 (RY 
defaults to = RX). 

When the routines are loaded 
into memory, they leave all of 
the BASIC memory area un¬ 
touched. However the bit map¬ 


ped screen, starting at 8192 
($2000) is in the middle of the 
BASIC program area. Thus a 
program plus variables of more 
than 8K will 'crash into’ the high 
resolution screen memory area. 
This can be avoided by setting 
the bottom of BASIC above the 
hires screen area to 16384 
($4000), before loading a sub¬ 
sequent large applications pro¬ 
gram, leaving about 24K RAM 
available for BASIC. This is a 
system limitation, but not a seri¬ 
ous one, since most applica¬ 
tions programs will not ap¬ 
proach this size. 

The routines are loaded by 
the BASIC program listed in this 
article. Once loaded the BASIC 
loader program can be cleared, 
and the machine code remains 
in memory until you turn the 
power off. 

The routines can be called 
from machine code by using 
JSR and the appropriate hex. 
address. Machine code prog¬ 
rammers should note, however, 
that locations 251 ($FB), 252 
($FC), and 253 ($FD) in zero 
page memory are used by the 
routines, and must therefore be 
avoided by applications pro¬ 
grams. 

If you have a machine code 
monitor you can speed up sub¬ 
sequent loading of the package 


500 XH =INT< XC/256)!XL=XC-£56*XH (SPLIT XC) 

600 POKE C,XL s POKE C+l,XH:POKE C+2,YC (POKE XC,YC) 


1570 SP=SP+1:GOTO15£0 
£000 DATA 49584 

£050 DATA 78,£0,CB,C1,78,A9,08,0O,13,D0,8D,18,D0,£0,04,C£ 

£060 DATA 78,A9,£0,0D,11,D0,8D,11,D0,58,60 

£110 DATA 78,A9,00,85,FD,85,FB,A9,20,85,FC,A0,08,38,A9,00,91,FB,C0,00,F0,03 
£ 1£0 DATA 4C,D8,C1,A9,08,18,65,FB,85,FB,90,03,E6,FC,18,A5,FC,C9,3F,F0,03,4C 
£130 DATA D6,C1,A5,FB,C9,40,F0,03,4C,D6,C1,58,60 

££10 DATA 78,A9,00,35,FB,A9,04,35,FC,AA,A0,FA,A9,03,38,91,FB,F0,03 

£££0 DATA 4C, 12,C£,18,A3,FA,65,FB,85,FB,A3,00,65,FC,85,FC,CA,F0,03,4C,0E,C£ 

££30 DATA 58,60 

£810 DATA 78,AC,AD,Cl,C0,C7,B0,46,B9,00,C0,85,FB,B9,D0,C0,85,FC,AD,AF,C1 
£315 DATA F0,0D,C9,01,D0,33 

£3£0 DATA AA,AD,AE,C1,C9,40,B0,£B,8A,18,65,FC,35,FC,AD,AE,C1,AA,4A,4A,4A 
£330 DATA 0A,0A,0A,A8,8A,£9,07 , AA ,A5,FD,F0,09,BD,A0 ,C1 ,11,FB,91,FB,58,60 
£340 DATA BD , A0,C1,49,FF,31,FB,91 ,FB,58,60 

£400 DATA 73,£0,£F,C£,78,AD,AB,C1,38,ED,AE,C1,A8,AD,AC,C1,ED,AF,C1,B0,15,A£,0£ 
£410 DATA 8E,A8,C1,AA,98,49,FF,18,69,01,A8,8A,49,FF,69,00,4C,BB,C£,C9,00 
£4£0 DATA D0,09,C0,00,D0,05,A£,00,4C,B8,C£,A£,01,3E,A8,C1,8C,9A,C1,8D,9B,C1 
£430 DATA AD,AA,C1,38,ED,AD,C1,30,0C,8D,98,C1,C9,00,F0,0F,A9,01 

£440 DATA 4C ,E0,C£,49,FF,18,69,01,3D,98,C1,A9,0£,8D,A9,C1,C9,00,D0,03,4C,11,C4 
£450 DATA AD,A8,C1,D0,03,4C,EC,C3,A9,00,8D,9C,C1,8D,9D,C1 

£460 DATA AD ,9B,C1,F0,03,4C,6C,C3,AD,9A,C1,38,ED,98,C1,90,03,4C,6C,C3,AC,A9,C1 
2470 DATA AE,A8,C1 

£480 DATA C0,01,D0,06,EE,AD,C1,4C,£1,C3,CE,AD,C1,£0,5C,C4,48,AD,9D,C1,ED,99,C1 
£490 DATA 30,2E,8D,9D,C1,68,8D,9C,C1,48,E0,01,D0,14,AD,AE,C1,18,69,01,8D,AE ,C1 
2500 DATA AD,AF,C1,69,00,8D,AF,C1,4C,5B,C3,AD,AE,C1,38,E9,01,8D,AE,C1 
£505 DATA B0,03,CE,AF,C1 

2510 DATA 68,£0,£F,C£,AD,AA,C1,CD,AD,Cl,F0,03,4C,0E,C3,58,60,AD,98,C1,48 
2980 DATA AD,9A,C1,8D,98,C1,AD,9B,C1,8D,99,C1,68,8D,9A,C1,AC,A9,C1,AE,A8,C1 
2530 DATA E0,0 1 ,D0,14,AD,AE,C1,18,69,01,8D,AE,C1,AD,AF,C1,69,00 
2540 DATA 8D,AF,C1,4C,B1,C3,AD,AE,C1,38,E9,01,8D,AE,C1,B0,08,AD,AF,C1,F0,03 
2550 DATA CE,AF,C1,£0,5C,C4,48,AD,9D,C1,ED,99,C1,30,15,8D,9D,C1,68,8D,9C,C1 
2560 DATA 48,C0,01,D0,06,EE,AD,C1,4C,D£,C3,CE,AD,C1,68,£0,2F,C2,78,AD,AC,C1 
2570 DATA CD,AF,C1,D0,0A,AD,AB,C1,CD,AE,C1,00,0£,58,60,4C,80,C3,AC,A9,C1,D0,0£ 
2575 DATA 58,60,C0,01,F0,06,CE,AD ,C1,4C,00,C4,EE,AD,C1,20,2F,C2,78,AD,AD,C1 
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by saving it directly in machine 
code form as below: 

With your monitor in memory, 
load and run the BASIC pro¬ 
gram. Enter the monitor and 
save HIRES by- 
S‘‘HIRESMC”,01 ,C000,C902 
S‘‘0:HIRESMC”,08,C0OO,C9O2 


You can then use 
LOAD“HIRESMC”,1,1 or 
LOAD“HIRESMC ,, ,8,1 to load 
the package directly into the 
correct place in memory. 

M. Griffiths 
Lindisfarne NSW 


> 2580 DATA CD, AA,C1,F0,03, 4C,EC,C3,58,60, AE, A8,C 1,D0,02,58,60,E0,01, D0,14 

2590 DATA AD,AE,C1,18,69 ,01 ,8D,AE,C1,AD,AF,C1 ,69,00,3D,AF,C1,4C ,43,C4,AD,AE,C1 
2600 DATA 38,E9,01, 8D,AE,C1, B0,08,AD,AF,C1, F0,03,CE,AF,C 1,20, 2F/C2,78 
26 10 DATA AD,AF,C1, CD,AC,Cl,D0,0A,AD,AE,C1,CD,AB,C1,D0,02,58,60,4C,11,C4 
2620 DATA AD,9C,C1,18,6D,9A,C1,8D,9C,C1,AD,90,C1,69,00,8D,9D,C1,AD,9C,C1 
2630 DATA 38,ED,98,C1,60 , * 

2700 DATA 50832 

27 10 DATA 8D,84,C6,8D,85 ,C6,A2,11,18,6E,85,C6,6E,84,C6,6E,83,C6,6E,82,C6,90,13 
2720 DATA 18,AD,30,C6,6D,84,C6,8D,84,C6,AD,31,C6,6D,35,C6,8D,35,C6,CA,D0,DC 
2730 DATA 60 ,EA ,EA,EC,7F,C4,F0,IE,38,ED,70,C4,48,98,ED,7E,C4,10,1C,A8,68,49,FF 
2740 DATA 18,69,01,48,98,49,FF,69,00,AE,7F,C4,4C,EC,C6,18,6D,7D,C4,48,98 
2750 DATA 6D,7E,C4,A3,68,60,EA,8D,9F,C1,AC,79,C4,AE,7A,C4,4C,07,C7,AD,77,C4 
2760 DATA F0,04,38,88,E8,E8,C8,CA,AD,9E,C1,38,E9,19,8D,9E,C1,AD,9F,C1,E9,00 
2770 DATA 8D,9F,C1,B0,E2,8C,79,C4,3E,7A,C4,60,A9,00,8D,79,C4,8D,77,C4,8D,7B,C4 
2780 DATA 3D,7C,C4,3D,3E ,C1 ,A9,FF,8D,7A,C4,3D,78,C4,AD,CD,C0,C9,65,90,01,60 
2790 DATA C9,19,B0,06,20,F0,C6,4C,97,C7,38,E9,19,CE,79,C4,CE,77,C4,EE,7A,C4 
2800 DATA EE,78,C4,CE,7C,C4,C9,19,B0,06,20,F0,C6,4C,97,C7,E9,19 ,EE,79 ,C4 
2810 DATA EE,77,C4,CE,7B,C4,CE,7A,C4,CE,73,C4 ,C9,19,B0,06,20,F0,C6,4C,97,C7 
2820 DATA E9,19,CE,79,C4,CE,77,C4,EE,7A,C4,EE,78,C4,EE,7C,C4,20,F0,C6,AD,CE,C0 
2830 DATA 33,ED,CD,C0,B0,02,69,64,8D,9F,C1,A9,00,8D,9E,C1,AD,CB,C0,CD,CC,C0 
2840 DATA B0,03,AD,CC ,C0 , A2,00,C9,00,F0,0E,3D,76,C4,A9,A3,38,ED,76,C4,90,03 
2850 DATA E8,B0,F8,E0,00,D0,01,E8,8E,82,C6,AC,CF,C0,D0,01,C8,3C,30,C6,A9,00 
2860 DATA 8D,83,C6,8D,31 ,C6,20,90,C6,AD,32,C6,3D,CF,C0,3D,76,C4 ,AD,CC ,C0,D0 ,06 
2870 DATA AD,CB,C0,8D,CC,C0,AC,7A,C4,B9,80,C4,8D,80,C6,B9,80,C5,8D,31,C6 
2880 DATA AD,CB,C0,3D,32,C6,A9,00,3D,33,C6,20,90,C6,AD,34,C6,3D,7D,C4,A9,00 
2890 DATA 8D,7E,C4,AA,AD,7C,C4,8D,7F,C4,AD,C8,C0,AC,C9,C0,20,C0,C6,E0,00,F0,03 
2900 DATA 4C,85,C8,3D,AE,C1,3C,AF,C1,AC,79,C4,B9,30,C4,8D,30,C6,B9,30,C5 
2910 DATA 8D,31,C6,AD,CC,C0,8D,82,C6,A9,00,3D,83,C6,20,90,C6,AD,84,C6,3D,7D,C4 
2920 DATA A9,00,3D,7E,C4,A8,AA,AD,7B,C4,3D,7F,C4,AD,CA,C0,20,C0 ,C6,E0,00,F0 ,03 
2330 DATA 4C,85,C8,C0,01,B0,06,8D,AD,C1,20,2F,C2,A2,01,BD,77,C4,D0,16,BD,79,C4 
2940 DATA C9,FF,D0,09,DE,77,C4,DE,79,C4,4C,BF,C3,FE,79,C4,4C,BF,C8,BD,79,C4 
2950 DATA D0,15,FE,77,C4,FE,79,C4,BC,7B,C4,F0,02,C8,C8,88,93,9D,7B,C4,4C ,BF ,C8 
2960 DATA DE,79,C4,CA,F0,C5,A9,19,8D,7D,C4,A2,FF,8E,7F,C4,E8,3E,7E,C4,AD,9E ,C1 
2970 DATA AC,3F,C1,20,C0,C6,E0,00 ,F0,1 1,A3,00,8D,CD,C0,8D,CF,C0,3D,CC,C0,A3,64 
2980 DATA 3D,CE,C0,60,8D,3E,C1,8C,3F ,C 1 ,CE,76,C4,D0,8C,AD,CF,C0,8D,76,C4 
2390 DATA 4C,F9,C7,* 



As a person who writes many 
programs in machine code for 
the Commodore 64 I have 
found a great need for a utility 
program that will convert a 
block of data into Basic DATA 
statements. The attached pro¬ 
gram does this very quickly. 

It is written entirely in 
machine language and doesn’t 
interfere with the Commodore 
development kit, on which it 
was developed. 

To use this utility type in the 
BASIC loader and save it. Run 


it and after a while, if all goes 
well, the usual READY prompt 
will appear. The DATAMAKER 
utility is now installed and is 
ready to use at any time until 
the computer is turned off. 

To call the routine type: 

SYS 50768, first, last, line 
number where ‘first’ is the deci¬ 
mal value of the starting loca¬ 
tion of the block of data to be 
converted into DATA state¬ 
ments. ‘Last’ is the decimal 
value of the last element in the 
block of data to be converted 


and ‘line number’ is the line 
number that you would like the 
DATA statements to start num¬ 
bering from. 

There is only one restriction 
that I am aware of with this 
routine that the user should 
know about. The three param¬ 
eters, apart from being in deci¬ 
mal, must be less than 32767 or 
an illegal quantity error is is¬ 
sued. This might pose problems 
if your data is located in the top 
half of the computer’s memory 
or you want very large line num¬ 
bers. 

The problem is caused by 
one of the BASIC ROM routines 
used to process the param¬ 
eters. To overcome this you 
must play a little trick and enter 
the desired ‘large’ number in a 
modified form. Let’s say that 
you want the DATA statements 
to start numbering from 50000. 


Instead of entering 50000 as 
the start value you must calcu¬ 
late 50000 - 65536, which is - 
15536, and use this as the 
value. You might enter, for the 
previous example, 

SYS 50768, 832, 895, - 
15536 

So, if the number to be used 
is greater than 32767, then you 
must subtract 65536 from it and 
use that value. 

If you want you can get the 
computer to work the value out 
for you. For example, this would 
achieve the same result as be¬ 
fore 

SYS 50768, 832, 895, 50000- 
65536 

That’s all there is to it! 


Peter Thacker 
Burchip VIC 
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10 PR I NT " nag! BATAMAKER" 

20 PRINT"® P. THACKER < IS8'3\ 

30 PR I NT "HUTTO CALL.. TYPE" 


40 PRINT"® SVS 50768 
50 PR I NT'WHERE FIRST= S 
60 PRINT" LAST* LflS 
70 PRINT" LINE NOS= 
80 PR INT"□ 


VS 50768j FIRST,LAST,LINE NOS" 
FIRST* START LOCATION TO CONVERT" 
AST* LAST LOCATION TO CONVERT" 

INE NOS= FIRST LINE NUMBER IN THE" 
RESULTANT BASIC PROGRAM" 


90 PRINT'UBASIC LINES GO IN STEPS OF 10" 

100 PRINT'HJTHIS ROUTINE DOESNT INTERFERE WITH" 

110 PRINT"COMMODORE'S DEVELOPMENT KIT" 

120 PRINT'WLEHSE WAIT WHILE IT IS LOADED" 

130 GOSHB150 
140 NEW 

150 REM DATA LOADER 
160 L.OC=50768 
170 READX : IFXC0THEN230 
1 y 0 u y “ c S + X 

190 PRINT"03HECK SUM= ".;CS.;" HEADING FOR 71810 
200 POKELOC,X 
210 LOC=LOC+1 
220 GOTO170 

230 IFCS--71810THEN 280 

240 PRINT"CPHECKSUM ERROR..." 

250 PRINT"B3CHECK DATA STATEMENTS IN LINES" 

260 PRINT"020000-29999" 

270 END 

280 LOC=53081:CS=0:PRINT"0 
290 READX : .IFX<0THEN350 
300 CS*CS+X 

310 PRINT"0CHECK SUM= ";CS.:" HEADING FOR 16389.:" 
320 POKELOC,X 
330 LOOLOC+1 
340 OOTO290 

350 IFCS=16389THEN 400 

360 PRINT"DCHECKSUM ERROR..." 

370 PRINT"EtHECK DATA STATEMENTS IN LINES" 

380 PR I NT "1330000-39999" 

390 END 
400 RETURN 

20000 DATA 32,228,199,165,101,141,250 
20010 DATR207,165,100,141,251,207, 32 
20020 DATA228,199,165,101,141,248,207 
20030 DATA165,100,141,249,207, 32,228 
20040 DATA199,165,101,141,254,207,165 


20050 DATA100,141,255 
20060 DATA252,207,165 
20070 DATR173,252,207 
20080 DATA253,207,141 
20090 DATA 199, 32,238 
20100 DATA133,251,173 
20110 DATA160, 0,173 
20120 DATR173,255,207 
20130 DATA173,254,207 
20140 DATA207,173,255 
20150 DATA255,207, 32 
20160 DATA 199,173,252 
20170 DATA253,207,133 
20180 DATA131,145,251 
20190 DATA 7,160, 0 
20200 DATR251,173,253 
20210 DATA250,207,133 
20220 DATA133,254,177 


141.254.201 
207,165, 4:1 

44,141,25' 

141.246.201 
247,207, 3;: 
199,173,25c 


251 , 173 , 253 , 207 , 133,252 
0 , 173 , 254 , 207 , 145,251 
255 , 207 , 200 , 145 , 251 - 24 

254 . 207 . 105 , 10 , 141,254 

173 . 255 . 207 . 105 , 0,141 

207 , 32238 , 189 , 32 .• 238 
173 , 252 , 207 , 133 , 251^173 
207 , 133 , 252 , 160 , 0 , 1 S3 

145 , 251 , 32 , 238 , 199,162 
160 , 0 , 173 , 252 , 287,133 

173 , 253 , 207 , 133 , 252,173 
207 , 133 , 253 , 173 , 251 , 207 
254 , 177 , 253 , 141 , 170 , 2 


1, 32 
0, 173 
3,207 


20230 

20240 

20250 

20260 

20270 

20280 

20290 

20300 

20310 

20320 

20330 

20340 

20350 

20360 

20370 

20380 

20390 

20400 

20410 

20420 

20430 

20440 

20450 

20460 

20470 

20430 

20490 

20500 

20510 

20520 

20530 

20540 

20550 

20560 

20570 

20580 

20590 

20600 

20610 


DRTR 32 
DRTR 3 
DRTR207 
DRTR237 
BRTR252 
DRTR173 
DRTR207 
DRTR253 
DRTR 44 
DRTR208 
DRTR 1 
BRTR233 
DRTR207 
DRTR252 
DRTR 32 
DRTR253 
DRTR 0 
DRTR173 
DRTR198 
DRTR141 
DRTR 0 
DRTR133 
DRTR160 
BRTR251 
DRTR173 
DRTR207 
DRTR207 
DRTR145 
DRTR 2 
DRTR105 
DRTR207 
DRTR 46 
DRTR 76 
DRTR121 
DRTR169 
DRTR 0 
DRTR 96 
DRTR253 
DflTR-1 


89, 

207, 

238. 

250 

207. 

208 

238. 

251, 

207 

56. 

173. 

248 

237. 

250, 

207. 

173. 

249. 

207 

251. 

207, 

144. 

101. 

24 

173 

207 

105, 

3 

141. 

252. 

207 

253. 

207, 

105. 

0. 

141. 

253 

173, 

252, 

287 

133. 

251. 

173 

207, 

133, 

252. 

160. 

0. 

169 

145, 

251, 

;“;3 

238 

199. 

282 

164, 

56, 

173. 

252. 

297. 

233 

141, 

252, 

207. 

173. 

253. 

207 

8, 

141, 

253. 

207. 

173 

252 

133, 

251, 

i 77 

253. 

207 

133 

160, 

0, 

169. 

0, 

145 

251 

238, 

199, 

173 

246. 

287 

133 

173, 

247, 

207 

133. 

254 

160 

173, 

252, 

207 

145. 

253 

200 

253, 

207, 

145 

253, 

76 

129 

24, 

173, 

• : .cj3 

207. 

105 

9 

357, 

207, 

173 

253, 

207 

105 

141.'. 

253, 

207 

173, 

252 

■ 207 

251, 

173, 

253 

207, 

133 

C- >-1 
•_> -iL 

0, 

152, 

145 

251, 

208 

145 

200, 

145, 

251 

32, 

333 

199 

246, 

207, 

133 

253.’. 

173 

247 

1 99 , 

254 • 

160 

0, 

173 

252 

145’. 

253, 

200, 

173, 

253 

207 

253, 

24, 

173 

;7, c;-". 

207 

105 

141, 

252, 

207 

173, 

253, 

287 

0, 

141, 

253 

267, 

173, 

252 

133 . 

45, 

173 

253, 

207, 

133 

169’, 

67, 

141 

119, 

9 

169 

141, 

128, 

■y 

169, 

82, 

141 

2, 

169 , 

13 

ldl, 

122, 


4, 

133, 

198 

96, 

32 , 

. 1 1 5 

•~i -~i 

158 , 

173 

<~i .-I 

1 78 , 

177 

9 3 Pi, 

252, 

287 

208, 

3, 

333 


30060 
30070 
30080 
30090 
30100 
30110 
30 i 30 
38130 
30140 
30150 
30160 
30170 
38180 
30190 
30200 


DRTR206 
DRTR 48 
DRTR201 
DRTR168 
DRTR 2 
DRTR220 
DRTR167 
DRTR 49 
DRT8238 
DRTR 0 
DRTR168 
DRTR 2 
DRTR 2 
DRT R167 
BPTfl-i 


'RRFiR 

DATA 173,167, 2, 

72,173,168, 


50010 

DRTR 72,173,169, 

2, 72,169, 

32 

30020 

DRTR141,167, 2, 

141,168, 2, 

169 

58030 

DRTR 48,141,169, 

2,173,170, 

2 

58840 

DRTR281, 0,248, 

72,238,169, 

3 

58858 

DRTR 173, 169, 2, 

201, 58,248, 

6 


287,169 
168, 2 
49,141 

238.168 
58,208 

2, 173 
8, 169 
131,207 
207,160 
251,173 

173.169 

141.169 
104, 141 
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CHARACTER MAKER 


After hours of using a pencil the left arrow key and two co- 
and paper to make up my user ordinates to delete a pixel, 

defined graphics I decided to You may create your char- 
make up a program to do the acter by pressing FI or use 

job for me. other features such as rolling 

Using the program is easy - the spike in four different direc- 

use the numerical keys to fill in tions or reversing the character Jarrad Webb 

a pixel as a co-ordinate and use and then creating the character. Henley Beach SA 


5 PRINT'D" 

9 CH= : 1'60 : X=1104 

10 PRINT” B CHARACTER MAKER ■” 

11 PRINTTSTYPE IN TNG NUMBERS TO SELECT THE SPACES TO 

12 PR I NT " (STRESS <BHE > AND THE CORDS. TO RUE OUT” 

14 PRINT l> mEDIQ PRESS SPACE TO START ■” 

15 GET At : IFAtC ” "THEN 15 

19 F‘R I NT "CEl 2345678" 

20 F0F:I"1T0S 

30 PR I NT ” TTTTTTTTI' NEXT 

32 PR I NT " BBBHp rVPE IN fflS TO ENTER THE CHARACTER" 

33 PRINT" Btiiirr VPE IN ET3? TO REVERSE THE CHARACTER” 

34 GOSUBC50 

35 OETAt : IFAt-”"THEN35 
33 GOSUB100O 

37 I Ffit~ ” ” THENCH--80 G0T035 
3S IFfit~”i"THEN200 

39 IFFit"”2”THEN2‘ 1 GOSUB70O 

40 GETBt IFBI”""THEN40 

42 A=VAL(At > 

43 B”VAL<Bt> 

44 I FA . 0F:B~. THEN'35 

16 A-A '1B-B 1 
60 Q--E+48 

70 Q“=l 104+-A+C! 

SO POKE LACM 

100 CH --160 COT035 

206 FORJ-1103TO1382STEP40 

210 FORI-1TOC 

220 IFPEEK<J11:C160THENPOKEJ \ I,J2 GOT 0380 
230 RE ADA .• B 

240 IFFI ITHEHT-T *B ■ RESTORE ' GO 1 0300 
258 GOT02 GO 
300 11EXT I 

310 C=C+ I T 1 '. C > T T 0 ne: :t J 
4O0 DAT AS, 1,7,2. 6.. 4 5, 3.. 4 16 3 • 22 2 64. 1 } 23 
530 PR I NT " rm'W8&lir -! .EASE HA IT i" ootosso 
550 REM 

560 P0KE52 4S P0KE56,IS 

578 P0KE56334,PEEK<56334 > AND251 
572 POKE1,PEEK*1 •RND251 

574 FOR I =0T 0511 POKE I +12280, PEE!:j , 53243 > : NEXT 
576 POKE 1, PEEK '• 1) 0R4 

575 P0KE56334,PEEK < 56334> OR1 

579 POKE53272, •: PEEK < 53272 :■ AND24 O > i 12 
590 POKE53272.- 28 


BE FILLED IN.” 


590 F0Ri>-122SSTG122SS+7 ' MU A J FOKEC, T ■' U > \ IE! T 
600 PRINT"g3BWTHE CHARACTER FOR THE DATA " 

610 FORI~1TOO 

£20 PRinT"iiB"Ta> next 

630 PRIMT"®S THI3 @ 0 @ 

640 print" fflaano you want to do another one ivon:," 

650 GETAI IFflT-""THEN650 
660 I FFI*=" V" THENP0KE53272 21 RUN 
670 IFR$~"N"THENP0KE53272' 21 END 
688 GOTO650 

7O0 FOR J- 11O3T013833TEF40 
710 F0RI~1T08 

720 IFPEEKCJt I > DGOTHEHPOKEJU, 80' GOTO740 

730 IFPEEK < J+1> C160THENPOKEJ+1,160 GOTO740 

740 NEXT I 

745 NEXT-J: RETURN 

750 FORJ=1103TO1383STEP40 

755 F0RI=1TO8 

760 IFFEEKC J+DO80THENPOKECJH >+P, 160 FOKEJ+I ■ 80 

763 PRINT" @312345678" 

764 PRiNT"gKOEEEEB SB 91 91 ED SB 31 @0. ® 

765 NEXTI : NEXTJ:RETURN 
800 FOR1=1383T01103STEP-40 
810 FORI-S TQ1STEP-1 

315 PR i nt EB (31 @B EB SB SB SB GB" 

820 I FPEEK ■ J11) 30THENPOPE' J+1 +P ,160 POKE J+1,80 

;:30 NEXT 1 NEXT J RETURN 

350 PRIHT" H1S1B"T BB< 153 "0 N 8 - UF " 

055 PRINT" SUBSE: "TfiB■ 15> "0 - 8 ••• DOWN" 

300 PRINT'lffiEja"lrlB- 15>"a fl 8 = LEFT" 

365 PRINT'"®®M"TriD- 15'■ "0 2 H -• RIGHT" 


330 PRINT"! 
365 PRINT'® 
870 FETOR!! 
1OO0 I Frit "I 
1010 1X0} " 
)0£0 IFF f-" 
iu30 jrnf"-’ 1 

'run rrT! : "M 


J"THEMR 
■"'THCrir 
: l'' THO-jp 

:: MT HL!IF 


81 





In developing programs on the 
Commodore 64 there has been 
a need to use built in, and easy 
to use, graphics commands. 
Below is a short program that 
inserts itself into the BASIC 
interpreter and adds these com¬ 
mands. To make the program 
short and to provide one-key 
commands three unused keys 
on the keyboard have been 
used rather than tokenising 
three, more meaningful, 
graphics words. 

The commands are: & border 
colour, screen colour - which 
will clear the screen and re¬ 
place it with a high resolution 
screen ready for drawing; 
’x1,y1,x2,y2,colour - will draw a 
line between (x1,y1) and (x2,y2) 
in the specified colour; ! border 
colour, screen, character - will 
replace the high-res screen by 
the normal text screen and the 
characters will be printed in the 
specified colour. 

Each colour is a value from 0 


to 15 and corresponds to col¬ 
ours that can be produced by 
the C64. For example 0 = black, 
1 = white, 2 = red and so on (i.e. 
one less than the number on 
the number keys). Depending 
upon the screen colour, the line 
may not appear the colour that 
you wanted. 

The co-ordinates that are al¬ 
lowed for the x and y values are 
0 to 319 for x and 0 to 199 for 
y with (0,0) being in the top left 
hand corner - so essentially x 
measures how far horizontally 
you’ve gone and y how far verti¬ 
cally ypu’ve travelled. Should il¬ 
legal values be used then the 
draw command will automati¬ 
cally return to the normal text 
screen and display an ILLEGAL 
QUANTITY ERROR message. 

A word of warning. If some 
other part of your program has 
a fault that causes an error 
message to be printed when 
you are in the graphics mode, 
the screen will not revert back 


to the text mode and a line of 
coloured squares will appear on 
the high-res screen in place of 
the message. You will have to 
manually restore the text screen 
by using the ! command. 

All the values can be any 
legal BASIC expression and are 
not confined to simple numbers 
- except if the commands are 
used directly and not in a pro¬ 
gram (here they must be pure 
numbers). So, for pxample, in a 
program the colour code could 
be SQR( LOG (PEEK(24* 
1024) +1) but directly it must be 
1 or 2 etc. 

One other restriction is that, 
when used in programs, each of 
the commands must be pre¬ 
ceded by a colon(:). 

Program three shows 
examples of the use of these 
commands to draw lines, circles 
and to fill in regions. 

To add these commands to 
BASIC type in the loader pro¬ 
gram (program one) exactly as 


19 L0C=49152 : PR I NT " ^WTOWLORDING " 

20 READB*:IFDf="$"THEN130 

25 PRINT"SRT ";LOCJ"HEADING FOP 505R?" 
30 V=@ 

40 F0RI=1T02 
30 P$=MID*<D$, I, 1> 

60 GOSUB500 
713 V=V*16+F 
80 NEXT 
90 P0KEL.no.. y 
100 T=T+V 
110 L0C=L0C+1 
120 GOTO20 

130 IFT=164041THENSVS50475 

140 PRINT"OOPS!...CHECK THE DRTFT 

150 END 

500 P= (48-RSC C P*> * ( p$< = " 3 " 

510 P=P+ < 55-RSC < Pf Pf >=" R" ;• 

520 RETURN 

1000 DRTRR9, 4C, 85,84, R9,28 , 85. P5, R9 
1010 DRTRC0,85,86,60,26,53,45,5C, 45 
1020 DRTR58,54,5F,52;41,57,E6,7fl,D0 
1030 DRTR02,E6;7B,60,20,9E,HD,20,RR 
1040 DRTRB1,R5,65,60,Efl,C9,26,D0,03 
1050 DRTR4C.SB,C0,C9,21;D0,03,4C,DO 
1060 DRTRC0, C9,27, D0,03, 4C, 96, C1, Efl 
1070 DRTR38;E9,30,4C,87,00,C0,F4;4C 
1080 DRTRD0;C0,R0,00,B1,7fl,D9,14;C0 
1090 DRTRII0; 08, C8, C0,01, D0, F4, 4C, 96 
1100 DRTRC1;C9;3fl,B0,0fl,C9;20,F0;07 
1110 DRTR38,E9,30,38,E9,D0,60,4C,73 
1120 DRTR00,28,18,C0,4C,79,CO,20,18 
1130 DATRC0,20,18,C0,20,1F,C0,3D,20 
11.40 DRTRD0,20, 18, CO, 20, 1F, C0,85, FD 
1150 DRTRflD,11, D0,09,20,8H,11,D0,RD 
1160 DRTR18,D0,29,F0,09,08,8D,18. BO 
1170 DRTRRD,00,DD,29,FC,09,03,8D,00 
1130 DRTRDD,R9,20,85,FC,RR,R9,00,85 
1190 DRTRFB,3o,00,91,FB,88,BO,FB,E6 
1200 DRTRFC,Cfl,D0,F6,R9,04,RR,85,FC 
1210 DRTRR0,00,R5,FD,91,FB,88.D0■FB 
1220 DRTRE6,FC,Cfl,D0,F6,R9,3R,4C,79 
1230 DRTR00,20,IS,CO,4C,DC,C0,20,IS 
1240 DRTRC0,20,18,00,20,1F,C0,8D,20 
1250 DRTRDO,20,18,C0,20,lF,C0,8D,2i 
1260 DRTRDO,20,18,C0,20,IF,CO,SB,86 
1270 DRTR02,R9,93,20,D2, p F,RD,1!,DO 
1280 DRTR29,DF,8D,11,D0,RD,00,DD•29 
1290 DRTRFC,09,03,8D,00,DD,RD,18,D0 
1300 DRTR29,F0,09,04,8D,18,D0,40,OB 
1310 DRTRC0,20,04,C5,R5,66,D0,18 20 
1320 DRTR0F,BC,R5,FC,R4,FB,20,91, B3 
1330 DRTR20,5C,C1,20,0E,C5,R5,66,FO 
1340 DRTR04,20,51,C1,60,R9,00,RO,01 
1350 DRTR20,91,B3,R9,FF,85,66,20,4C 
1360 DRTRC4,60,R2,06,B5,60,9D,41,03 
1370 DRTRCR,D0,F8,60,R2,06,BD,41.03 
1380 DRTR95,60,Cfl,DO,F8,60,R5.R6.45 
1390 DRTR6E,85,6F,R5,61,60,RD,40,03 


14O0 DRTR85,FB,RD,3D,03,8D,40,03,R5 
1410 DRTRFB,8D,3D,03,RD,3F,03,85,FB 
1420 DRTRRD,3C,03,8D,3F,03,R5,FB,8D 
1430 DRTR3C,03,RD,41,03,85,FB,RD,3E 
1440 DRTR03,8D,41,03,R5,FB,8D,3E,03 
1450 DRTR60,20,18,C0,4C,R2,Cl,20,18 
1460 DRTRC0,20,18,C0,20,9E,RD,R9,01 
1470 DRTR85,FC,R9,40,85,FB,20,18,Cl 
1480 DRTR20,RR,B1,R5,65,SD,3C,03,R5 
1490 DRTR64,SB,3D,03,20,18,C0,20,9E 
1500 DRTRRD, R9,00,85,FC,R9,C8,85,FB 
1510 DRTR20,18,C1,20,RR,B1,R5,65,8D 
1520 DRTR3E,03,20,18,C0,20,9E,RD,R9 
1530 DRTR01,85,FC,R9,40,85,FB,20,18 
1540 DflTRC1,20,RR,B1,R5,65,8D,3F,03 
1550 DRTRR5,64,8D,40,03,20,18,C0,20 
1560 DRTR9E,RD,R9,00,85,FC,R9,C8,85 
1570 DRTRFB,20,18,Cl,20,RR,B1,R5,65 
1580 DRTRSD.41,03,20;18,C0,20,1F,C0 
1590 DRTROfl,OR,OR,OR,8D,43,03,RD,3C 
160O DRTR03,CD,3F,03,D0,15,RD•3D,03 
1610 DRTRCD,40,03,D0,OD,R2,06,R9,00 
1620 DRTR9D,41,03,Cfl,DO,Ffl,4C,RS,C2 
1630 DRTRRD,40,03,RC,3F,03,20,91•B3 
1640 DRTR20,0F,BC,RD,3D,03,RC,3C,03 
1650 DRTR20,91•B3,20,5C,C1,20,53,B8 
1660 DRTR20,46,C1,R9,00,RC,4I,03,20 
1670 DRTR91,B3,20,0F,BC,R9,00,RC,3E 
1680 DRTR03,20,91,B3,20,5C,C1,20,53 
1690 DRTRB8,20,OF,BC,20,51,C1.20,5C 
1700 DflTRC1,20•12,BB,20,46,C1. R9,00 
1710 DRTR85,66,EP,Efl,20,RR,B1, P9 ,00 
1720 DRTRC5,65,DO,07,C5,64,D0,03,4C 
1730 DRTRE7,C2,R9.00,R0,91.20.91 B3 
1740 DRTR29,71,C4,20,5C,C1,29,12,BB 
1759 DRTR20,46,C1,4C,E3,C4,CD.3E,93 

1769 DRTRBO,03,20,65,C1,RD 41 93•CD 

1770 DRTR3E,93,B0,03,4C,CB,C0,20,35 
1“80 DRTRC3,4C,C0,C4,RC•3C•03.20,91 
1790 DRTRB3, 20,0F, BC, 20,51 • C1.20.5C 
1800 DRTRC1,20,6fl,B8,20,RR,B1,R5,65 
1810 DRTR8D,3C,03,R5,64,8D,3D,03,EE 
1820 DRTR3E,03,4C,B1,C2■20.9B,C4.4C 
1830 DRTRF9,C2,EP,Efl,ER,ER.ER,ER Efl 
1840 DRTRER,ER,Efl,ER,ER,38,RD,3F,03 
1850 DRTRED,3C,03,RD,40,03 ED,3D,0? 
1860 DRTRBO,03,4C,CB,CO,20.35,C3,4C 
1870 DRTR78,C4,3E,03,20,91,B3,20,0F 
1880 DRTRBC,20,51,C1,20,5C, C1,20•6P 
1890 DRTRB8,20,RR,B1,R5,65,3D•3E.03 
1900 DRTREE,3C,03,D0,03,EE,3D,93,40 
1910 DRTRF9, C2,18. RD,3D,03,6P,RD,3C 
1320 DRTR03,6R,4fl. 4fl,8D,49,03,RD,3E 
1330 DRTR03,4R,4R,4fl,8D,4fl,03,R9, R0 
1940 BRTRRC,49,03,20,91,B3,20,OF,BC 
1350 DRTRR9, OO, PO, 08,20,91B3,20, 5C 
1960 DflTRC1,20,30,BP,20,PR,£I,R5,65 
1970 DRTR8D, 4B, 03, R5,64, SD, 4C ■ 08 • fl'=< 
1980 DRTP0O, RC.■ 4R • 03, 20.91 . B3.20 OF 





it is written and save it on tape 
or disk under the name 
LOADER. Type RUN and press 
return. The loader contains a 
checksum routine to prevent it 
from working if an error has 
been made - if this has hap¬ 
pened then check each data 
statement again, save it and try 
again. 

If everything goes to plan 
then the screen will clear and 
the name: ‘TINYGRAPH BY 
P.THACKER’ will appear. You 
now have these three com¬ 
mands at your disposal. The 
LOADER takes a long time to 
POKE the instructions into the 
area of RAM located above the 
BASIC interpreter, at 49152, but 
there is a way to make it load 
almost instantaneously. 

Here’s what to do: RUN the 
LOADER (or follow the above 
instructions) and verify that it 
works; Type SYS 64738 and 
press return. This restores the 
computer to its just turned on 


1390 BATRBC, R9,91 , fl0,40, 20 , 91, B3,20 
2000 BRTR3C ,C1•20, 30, Bfl, 20,0F, BC , RB 
2010 IIRTR4C, 03, RC, 4B, 03 .• 20,91, B3,20 
2020 HRTR5C:, C1,20,6A, B8,20,0F, BC, R9 
2030 DRTR20, R0, 00,20 .>91, B3,20,5C , C1 
2040 DRTR20, 6R, B8, 20, 0F, BC, R9,07, 2B 
2050 BRTR3E,03,R8,89,00,20,91,B3,20 
2060 BRTR5C,C1,20,6R,B8,20,RR,B1,R5 
2070 DRTR65,SB,4B,03,R5,64,3B,4C,03 
2080 BRTRRB.3C,03,29,07,85,FB,38,R9 
2090 BRTR07,E5,FB,85,FB,R9,00,85,FE 
2100 BRTR38,26,FE,R5,FB,F0,07,R4,FB 
2110 BRTR06,FE,88,B0,FB,P0,00,RB,4B 
2120 BRTR03,85,FB,RB,4C,03,85,FC,B1 
2130 BRTRFB,05,FE,91,FB,R9,00,RC,4R 
2140 BRTR03,20,91,B3,20,0F,BC,R9,00 
2150 BRTRR0,28,20,91,E3,20,5C,C1,20 
2160 BRTR3Q,BR,20,0F.BC,R9,00,RC,49 
2170 BRTR03,20,91,B3,20,5C,C1,20,6fl 
2180 BRTRB8,20,0F,BC,R9,04,RC,00,20 
2190 BRTR91,B3,20,5C,C1,20,6R,B8,20 
2200 BRTflflfl,B1,R5,65,85,FB,R5,64,35 
2210 BRTRFC, R0,00, RB, -a8,03, 11, FB, 91 
2220 BRTRFB,60,RB,00,BB,29,FC,09,03 
2230 BRTR8B,00,BB,RB,11, B0,29, BF, SB 
2240 BRTR11,B0,PB,18,B0,29,F0,09,04 
2250 BRTR8B•18,B0,R9,93,20.B2.FF.20 
2260 BRTR71,BF,60,20.0F•BC,20,51 CI 
2270 BRTR60,R2,06,BB,56, 03,95,60, CR 
2280 BRTRB0,F8,20,0F,BC,20,51,C1,20 
2290 BRTR5C:, C1,20.6R, B8, P2, 96, B5 60 
2300 BRTR9B•56.03,CR.B0.F3.4C•22.C3 
2310 BRTR38,RB,3F,03,FB,3C,03.RB, 40 
2320 BRTR03,EB•3B,03,B0,03.20.65,C1 
2330 BRTRR9,00,RC,?E,03,20,91,B3,R2 
2340 BRTR06, B5,69,9B, 56, 03, CR!. B0, F8 
2350 BR T R60,R2,06.BB,50.03,95.60•CP 
2360 BRTRB0,F3,20,0F,BC,20,51 C1,20 
2370 BRTR5C,C1,20,6fl,B3,P2,86,B5,60 
2380 BRTR9B,50,03,CR,B0,F8•4C,m.C2 
2390 BRTRRB,41•03,CB,3E,03,B0,03, 20 
2400 BRTR65,C1,RB,SB,03,«C.3C,03.20 
2410 BRTR31,§3■R2•0R..60■9B•50.00 
2420 BRTRCfl,B0,F8,4C,B1, C2. 20•46 C1 
2:430 B R T R R5,66,29, 80,85,66,60,20,53 
2440 BRTRB8,4C,07,C5,8B,52,45,4B,43 
•:?450 B R T R 4-1 ■ 48.54.2E 50,20,59 6 2 2 0 
2460 BRTR48,50 . .11,52,6?, . 4?, =14 

2470 BRTRP9,00 SB , 20, B0 . F"-'. 9B, SB ■ 2 1 

2480 BRTRB0,R9,40.85 -2C R9 00•SB 00 
2490 BR' T P40, R9,93.20, B2, C F R2 • 0C. R9 
2500 BRTR11,20,B2,FF,CR,D0,FR, 92,08 
2510 BP T RR9, 1B, 20, B2, , CR, B0 - p R, R? 

252 y BRTRC5 ■ 85, FC, R9 13 • 35 r: p 90 1 7 
2530 BPTRB1, r B, “'0 . D2, FF, 88 , B0 ■ - 8 , 
2540 BR *R08,35,58■R2. 00 ,RR, 00 ,88,B0 
2550 BRTRFB, CR, B0 F 8 C 6 58 • f'0 • F2 20 
2560 BRTR00,C0,P?.93. 8 B, 7 7 •02.R9■4E 
2570 BRTRRB,78,02■R9,45,8B,79,02,R9 
2580 BR' r R57, 8 B, 7fi, 02 • R9.0B, SB • 7B, 02 
2590 BPTRR9,05,85 C6.60.* 


condition without losing the 
graphics; Type 

POKE44,100:POKE 
25600,0:NEW and press return; 
Type in program two and save 
it on tape or disk; RUN it and 
if it’s OK then the number 6471 
will appear - if it doesn’t then 
check the DATA statements 
again; Type SYS 828 and press 
return. 

Finally, make these changes to 
program two and RUN it again. 

10 LOC = 2068 
60 DATA 253,145,251 
90 DATA 76,43,197 
and a value of 6961 should 
appear. If not, check it. If all has 
gone to plan so far, type POKE 
44,0:NEW and enter this one 
line program 10 SYS 2068. 
Now, to finish off, type POKE 
45,160:POKE 46,14:CLR and 
press return. Now SAVE this 
program on disk or tape, under 
“TINYGRAPH”. 

What you have done is 


o 


copied the graphics routines 
into the area used normally for 
your BASIC programs and 
joined onto it a small machine 
code program that will correctly 
reposition it. To use it just load 
TINYGRAPH as you would a 
normal BASIC program and 
type RUN and within a second 
you’ll be off and running. 

A brief comment about how 
the program works is important. 
The BASIC interpreter uses a 
subroutine located in zero page 
called the CHRGET routine to 
get the next character in any 
BASIC program. This routine is 
altered so that when one of the 
new commands is found the 
program you’ve just entered 
carries out the instructions re¬ 
quired. When you load and run 
TINYGRAPH the bottom of 
BASIC is moved up from loca¬ 
tion 2048 to 16384 to make 
room for the 8192 bytes needed 
for the screen. If you’re quick 
you’ll notice that some 6K is un¬ 
used (2048 to 8191) below the 
screen. This was done to avoid 
the character generator appear¬ 
ing on the screen. 

Peter Thacker 
Birchip VIC 


■ 3 | 00"828 

80 REABX ■ T=T+X ' I FX<0THENF'R I NTT • END 
30 POiCELOC, 8 : L0C=LQC+1 ; G0TO20 
40 BRTR169,0,133,251,133,253,168,169 
50 BRTR192,133,252,169,9,133,254,177 
60 DRTR251,145,253 

70 BRTR230,251,230,253,208,4,236,252 
80 BRTR238,254,165,252,201,193,208,236 
98 DRTA96 
100 ERTR-1 


18 .S:0,0 REM BLRCK B0RBER, SCREEN 

15 REM BRRW HOUSE 

20 : '■ 50, 50, 15050,8 

30 150,50, 150,150, s 

40 ••150,150,50,150,8 

50 : ■' 50,150,50,50,8 

60 : 50,50, 100, 25,8 

70 : •' 100, 25, 150,50,8 

80 "60,150,60,100,8 

90 : ■" 60, 100,90,100, 8 

180 :'90,100,90,150,8 

105 REM FILL IN BOOR 

110 FORV-100TO150 

120 :"60,V,99,V • 3 

130 NEXT 

135 REM BRRW WINDOW 
i 48 :'l80,i28,190,80, 5 
:i. 50 : ' 100,80,130, 88, 5 
160 :"130,80,130,120,5 
170 : •' 139, 120, 100, 120, 5 
180 : •' 100, 100,130,100.5 
198 : 115,128,115,80,5 
195 REM BRRW THE SUN 
200 F OR'/,--22 1 TO279 

218 F=SQR < BBS < 900- (X-251 > * < X-251 > >) 

215 FI =SQR(RBS(908-(X-249>* •:X-249 :• ) > 
228 : '' X, 50-F, X, 50-F1,7 
230 :"X,50+F,X,50+F1,7 
240 NEXT 

250 REM WRIT FOR KEYPRESS 

260 GET A*:IFfl$=""THEN260 

270 :!0,11,14:REM TEXT BLACK,OREV,BLUE 

280 LIST 


83 




















SCREEN PLOTTER 


When you first enter the pro¬ 
gram and run it garbage will ap¬ 
pear on the screen. Then it will 
start to clear itself slightly. 

Then the screen will turn 
cyan and one little pixel will ap¬ 
pear in the upper left of the 
screen. 

This pixel can be moved 
around by: "INSERT FIGURE 1. 

If you wish to erase anything 
that you have drawn, press the 
E key, and your pixel will flash. 
If you now retrace any or all of' 
your steps the pixels will be 
erased. This can also be used 
for moving your pixel without 
drawing. 

To start drawing again press 
the D key. 

If you wish to start again you 
can either press the HOME key 
or Run stop and Restore and 
rerun the program. 

Jarrad Webb 
Henley Beach 


COMMODORE 64 SCREEN PLOTTER 



10 R-l'£=2*4096:P0KE53272,PEEK(53272)0R8 = P0KE53265,PEEK(53265>0R32 : GOSUB70 
20 FOR I = 1024TO2023: POKE I,3 : NEXT: GOTO80 

30 CH= I NT < X/8 > • R0= I NT < Y/8 > ‘ LN=VflND?' BY=B+RO*320+S*CH+LN : BI =7- < XBHD7 > 

40 IFR=1THENPOKEEY,PEEK <BY>OR(2TBI) 

50 IFF-.THENPOKEEY,PEEK(BY>OR(2 tB I > : PQKEBY,0 
60 RETURN 

70 FORI=BT0B+7999'POKEI,. ■NEXT■RETURN 
30 M=PEEK<197) 

30 IFM=14THENR=. GOSUB30 

100 IFM=18THENR=1■GOSUB30 

1101FM=33THENV=Y-1 : GOSUB30 

120 I Ff1=30THENX=X-1 ; Y=Y-1' GOSUB30 

130 IFM~36THENV=Y+1 : G0SUB30 

140 IFH=38THENX=X+1 : V=Y-1■GOSUB30 

150 IFM=34THENX=X“1'G0SUB3G 

160 IFM=39THENX=X-1'V=Y+1: OOSUB30 

170 IFM=37THENX=X+1:G0SUB30 

130 IFM=47THENX=X+1'V=Y+1 : GOSUB30 

130 IFM=51THENGO3UB70 

200 IFM=64THENGOSUE30 

210 G0SUB23Q 

220 GOTO30 

230 IFX<1THENPOKEEY,. X=1 
240 IFX'318THENP0KEBY,. X=X~2 
250 IFV<1THENPOKEEY,. Y=1 

260 IFYM99THENP0KEBY,. Y=V-2 ■ 

270 RETURN 


DAYS TO GO 



HEWLETT 

PACKARD 


’How long to go till our holi¬ 
days?’, ‘Only five weeks to 
Christmas!’. Days to go is a 
simple program - enter any two 
dates and it will list every day 
in between, giving you the days 
and weeks to go plus an op¬ 
tional column of percentages. 
The printout is an invaluable gift 
to someone getting married, ex¬ 
pecting a baby or waiting for an 
important date to arrive. It oc¬ 
cupies pride of place on many 
of my friends’ toilet doors! 

Written in Hewlett-Packard 
BASIC, there is little that would 
not work on most other 
BASICS-the DO/DOEND and 
IMAGE statements won’t, but it 
should be obvious what they’re 
doing. 

The three date subroutines at 
lines 1000, 2000 and 3000 are 
not original. I’ve converted them 
from FORTRAN listings I’ve had 
for years. They are the sort of 
routine that most programmers 
need in their bag of tricks. 

Phil Carter 
Warrnambool VIC 


DAYSTQ60 

10 R£fl*.**************************************************** 

2# REN* * 

30 REM* PROGRAM : DAYS TO GO * 

41 REM* AUTHOR : PHIL CARTER * 

51 REM* DATE : NOVEMBER 1983 * 

60 REM* * 

71 REM* THIS PROGRAM U1LL PRINT ALL THE BAYS THAT OCCUR * 

81 REN* BETWEEN ANY TUO BATES. « 

98 REN* THE NUMBER OF BAYS TO GO AND THE NUMBER OF WEEKS * 

188 REM* TO 60 TO THE FINAL BAY IS PRINTED AL0N6SIBE EACH * 

118 REM* DATE. * 

128 REM* * 

138 REM***************************************************** 

148 DIM A1$[)],D1tt7,93,H1$[12,9] 

158 FOR 11=1 TO 7 
168 READ B19CI13 
178 NEXT II 
188 FOR 11-1 10 12 

; v# read NHCin 

288 NEXT II 
218 PRINT 

228 PRINT "**«* DAYS TO GO ***•" 

238 PRINT 

248 INPUT "Instructions? type YES or NO;",All 
258 IF A1*<>"Y" AND A18C-N" THEN 238 
268 IF A1• X "N“ THEN 338 
278 PRINT *' 

288 PRINT "'BAYS TO GO' is a conputer program that Mill first ask" 
290 PRINT "you to enter any tNO dates. Then, it Mill list all the" 
300 PRINT "days in between the two days, giving the nuitber of days" 
310 PRINT "to go, the nunber of weeks to go and, if you wish, a* 
320 PRINT "colunn of percentages." 

330 PRINT 

340 INPUT "Enter start date - DB,NN,YYYY:",B1,M1,Y1 
350 IF D1<1 OR B1>31 THEN 330 

360 IF MKI OR HI> 12 THEN 338 

370 IF T1<1900 THEN 330 

388 IF l(11 =4 OR HI =6 OR H1=9 OR Hl*11> AND Bl«3t THEN 330 

390 IF MI-2 AND B1>29 THEN 330 

400 lillSUt 2000 

410 SI*A1 

420 PRINT 

430 INPUT "Enter finish date - BB,HH,YYYY:",D1,H1,Y1 
440 IF D1<1 OR D1>31 THEN 420 

450 IF MKI OR Ml >12 1HEN 420 

460 IF Y1<1900 THEN 420 

470 IF (P11-4 OR M1>6 OR H1=9 OR Mt = >1) AND 01=31 THEN 420 
480 IF Ml*2 AND DI>29 THEN 420 
490 GOSUB 2000 
500 F1»A1 


> 



















511 IF F1>*S1 THEN 35# 

52# PRINT 

53# PRINT "Can't have finish date earlier than start date" 

541 GOTO 33# 

551 U1*INT((F1-S1)/7)*1 
561 PRINT 

57* INPUT "Print percentages?:“,A1 $ 

50* IF AHOT AND A1«>"N" THEN 561 
5?f PRINT 

6*r If AIi*"N" THEN DO 

611 PRINT USING 68*;"DATE","DAYS TO GO","WEEKS TO 60" 

62* PRINT USING 60#;"-",". “,"--" 

63* DOEND 
64* ELSE DO 

65* PRINT USING 68«;"DATE\"DAYS TO GO","UEEKS TO GO","PERCENT- 

66* PRINT USING 60*;"- -\". ",". M 

67* DOEND 

68* IHA6E 15X,4A,14X,IfA,3X,11A,5X,7A 

69* FOR I1«S1 TO FI 

7*f A1=I1 

71* GOSUB 1*0* 

720 60SUB 3000 

730 IF (F1-11 )/A.>IN1( (F1 - 11 )/7) THEN 770 

74* Ul-Ml-1 

75* U2-1 

76* GOTO 78* 

770 U2>0 

78* IF D2=1 THEN PRINT " " 

79* T1*(<II-SI)/(F1-SI)*100) 

00* IF A1*-"N" AND U2»* THEN PRINT USING 040;D1«[D2],H1*tM1],D1,Y1 

01* IF A1$="N“ AND U2*1 THEN PRINT USING 85#;D1«ID2J,H1ICN1I,D1,Y1 

02* IF A1l*"Y" AND W2«* THEN PRINT USING 860;D1*CD23 f H1tEN1J,D1,Y1 

03* IF A1I>"Y" AND U2«1 THEN PRINT USING 87f;D1t[D2],N1tCH13,D1,Y1 

04* IMAGE 9A,2X,9A,X,DD, U ,",X,DDDD,6X,DDDDD 

85* IMAGE 9A,2X,9A,X,DD,",",X,DDDD,6X,UDDDD,8x,DDDD 

86* IMA6E 9A,2X,9A,X,DD,",",X,DDDD,6X,DDDDD,23X,DDD 

07* IMA6E 9A,2X,9A,X,DD,",",X,DDDD,6X,DDDDD,8X,DDDD,11X,DDD 

B8* NEXT II 

89* STOP 

9** DATA "SUNDAY","MONDAY","TUESDAY",“WEDNESDAY" 

91* DATA "THURSDAY","FRIDAY","SATURDAY" 

92* DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" 

93* DATA "AUGUST","SEPTEMBER","OCTOBER",“NOVEMBER","DECEMBER" 


F1-I1 
F1-I1,U1 
F1-I1,T1 
F1-I1,U1,T1 


ROUTINE TO CALCULATE DAY, MONTH AND YEAR, GIVEN 
THE DAY Of THE CENTURY. 


VALUES PASSED: A1 - DAY OF CENTURY. 


VALUES RETURNED: D1 - DAY 

Ml - MONTH 
Y1 - YEAR 

LOCAL VARIABLES: X* 


P X#«(4*(A1-59)7-1 
P Y1*INT(X*/I461) 

1 DI*INT((X0-(1461*Y1)*4)/4) 

1 Ml »INT((5*IH -3)/153) 

P D1*INT((5*D1-3-153*M1)/5)♦ 1 
I IF (MKI*) THEN 124* 

P HI-M1-9 
P Y1*Y1+1 
» Y1=Y1+190* 

P GOTO 1260 
P M1*M1*3 
P Y1 *= Y1 +190* 

P RETURN 

P REM********** *********»*************************************** 
P REM* 

P REM* ROUTINE TO CALCULATE THE DAY OF THE CENTURY FROM THE DAY, 
P REN* MONTH AND YEAR. 

P REM* 

P REM* VALUES PASSED: D1 - DAT 
P REM* Ml - MONTH 

P REM* Y1 - YEAR 

P REM* 

9 REM* VALUE RETURNED: A1 - DAY OF THE CENTURY 
P REM* 

P REM* LOCAL VARIABLES: X*, XI, X2, X3 
P REM* 

P REM*********************************************************** 
P IF M1>2 THEN 2190 
P X3«M1+9 
P X•* Y1 -1 
» X0-X0-1900 
P 60TC 221* 

1 X3 e M1-3 
P X0-Y1-190* 

P X1*INT((1461*X*)/4) 

P X2“INT((153*X3+2)/5) 

P A1*X1+X2*il1+59 
1 RETURN 

I REM******** ******************************************* ******** 
I REM* 

I REM* ROUTINE TO CALCULATE THE DAY OF THE UEEK FROM THE DAT, 

I REM* MONTH AND YEAR. 

I REM* 

I REM* VALUES PASSED: D1 - DAY 
I REM* Ml - nONTH 

I REM* YI - YEAR 

l REM* 

i REM* VALUE RETURNED: D2 - DAY OF UEEK, UHEKE 1=SUNDAY, EIC. 
i REN* 

REM* LOCAL VARIABLES: X*, XI, X2, X3 
REM* 


XI*Y1-190* 

IF Ml>2 THEN 3190 
X2=M1+1* 

X1»X1-1 
GOTO 32*0 
X2»M1-2 

X3»INT((2.6*X2)-.19999) 

X»«INT(X1/4) 

D2-X3+D1+X1+X0-34 

IF D2>=1 THEN 3260 

D2-D2+7 

GOTO 3230 

IF D2>6 THEN 3290 

D2-D2+1 

RETURN 

D2=D2-7 

GOTO 3260 


Instructions? type YES or NO:NO 
Enter start date - DD,MM,YYYY:24,12,1983 
Enter finish date - DD,MM,YYYY:11,1,1984 
Print percenta^esTsYES 


PAYS TO GO UEEKS TO GU 


SATURDAY 

DECEMBER 

24, 

1983 

18 

0 

SUNDAY 

DECEMBER 

25, 

1983 

17 

6 

MONDAY 

DECEMBER 

26, 

1983 

16 

11 

TUESDAY 

DECEMBER 

27, 

1983 

15 

17 

WEDNESDAY 

DECEMBER 

28, 

1983 

14 2 

! 22 

THURSDAY 

DECEMBER 

29, 

1983 

13 

2d 

FRIDAY 

DECEMBER 

30, 

1983 

12 

33 

SATURDAY 

DECEMBER 

31, 

1983 

11 

39 

SUNDAY 

JANUARY 

1f 

1984 

10 

44 

MONDAY 

JANUARY 

2, 

1984 

9 

50 

IUESDAY 

JANUARY 

3, 

1984 

8 

56 

WEDNESDAY 

JANUARY 

4, 

1984 

7 1 

61 

THURSDAY 

JANUARY 

5, 

1984 

6 

67 

FRIDAY 

JANUARY 

6, 

1984 

5 

72 

SATURDAY 

JANUARY 

7, 

1984 

4 


bUNDAY 

JANUARY 

8, 

1904 

3 

83 

MONDAY 

JANUARY 

9, 

1904 

2 

89 

TUESDAY 

JANUARY 

10, 

1984 

1 

94 

WEDNESDAY 

JANUARY 

11, 

1984 

• 1 

100 


86 
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flf 0. : ••;.•>. V ' ✓ • 


0 P0KE3&8 i- 9,9 : G0SUB41 = REM < C) SHAUN r.LflRK. 

1 PRINT " 0 " :PQKE36879.9 

2 G0SUB36 

3 fl=l:B=-l 

4 X=7727 : V=8138 

5 GETfl$:IFA$=""THEN14 

6 IFA*="W"THENA=-22 

7 I Fflf="@"THENB=-22 

8 IFRT="R"THENA=~1 

9 IFA$=": "THENB--1 

10 IFA$="S"THENA= 1 

11 IFfl$=".; "THEHB= 1 

12 IFfl$="2"THENfl=22 

13 IFfl$= ,i /"THENB=22 

14 IFPEEK (. X+fl) = 102THEN2S 

15 I FPEEK < X+fl) = 160THEN26 

16 IFPEEK(V+B > = 160THEN31 

17 IFPEEK <V+E> = 182THEN31 

18 IFPEEK < X+fl)=S6THEN26 

19 IFPEEK < V+B)=86THEN31 

20 FORL= : 1TO100 : NEXTL 

21 X=K+R : V=V+B i 

22 PGKEX;160 

23 POKEV102 

24 P0KE36878,15 ■ P0KE36876,180 : FORT 3 170158: 


BLOCKADE 


Blockade is a two player game 
that demands sharp reflexes 
and skill. 

It is a game like the light 
cycle scene in TRON’. The ob¬ 
ject of the game is to make your 
opponent crash into either the 
wall, his own trail or your trail. 

Shaun Clarke 
Henley Beach SA 


: PuKE3fc*87 


X";■NEXT 


26 P0KE3 6S7S, 15 : PQKE36976.. 24 6 •’ F0RL=iTQ700: NEXT: P0KE36876, P 

27 PR I NT '' POfiBBtaaigM NON": FORT- x Tn2PWI ■ NFXT 

28 RS as RS+1 

29 IFRS>=16THEN65 

30 GOTO60 

.. FS ■ 15 : ^ : ^ ! -'RL" 1TO70O ' NEXT P0KE3S876, P\ 

3E PRINT n CMaitftf tf^ypp>p>iii|»j « WON n : FORT--1TG200G : NEXT 


3£ PRINT u MltftftfO»tflRi>pppip»tfcirJ ami WON" =F( 
3o L3”L8 + 1 

34 I F LS>-10THEN62 

35 GOTOS0 

Jfc r'R I NT ''Q'XCC'X^IaX^CK^xX^xVxV:.:'' 1 ; 

37 FORT =1T021 : PRINT" X 

38 PR I NT " XXXK^<)OOOC<COO<K^" : 

39 POKES185,86'POKES184,8fi 

40 RETUR N _ 

41 pr i nt '' HinBMgBaaMMiii^aF !i..nr.KaTiF«'' 

42 PR I NT "BDK NSTRUCTI OHS < V/N > " 

43 GET8$' I FS$="THEN43 

44 IFS$="V"THEN47 

45 IFS$-"N"THENRETURN 

46 G0TG43 

47 PRINT"QTHIS IS fl TNO PLOVER RRME li:-; 

48 PR I NT "0 S IS IN THE TOP LEFT HAND f: 

49 PRINT"THE OBJECT GF THE GAME IS TO TR 

50 PRINT" HALL OR INTO A TRAIL" 

51 print"BBDEEFnv key- 

52 REM THIS IS FOR TWO PLAYERS 

53 GETR$ I FR$="" THEN53 

54 PRINT'HTHE MOVEMENT KEYS ARE" 

55 PR I NT "O'J-IjP A-LEFT S-RIGHT Z-DOWN I 

56 PRINT" Ba-UP '-L EFT -RIGHT /-DOWN | 
5f F'R I NT " fitWOMME NY KEV" 

58 OETRt : IFR$=""THEN58 

59 RETUR N 

60 PR I NT ' WmwbihiK SCORE IS "RS 

61 PRINT'fflaSaSOiia i SCORE IS "LS : FOR" 


INO SHARP RE- FLEXES AND SKILLS." 
ORNER AND 1 IS IN THE BOTTOM RIGHT. 
V TO MAKE VOUROF'F'ONITE CRASH INTO A" 


Z-DOWN FOR THE TOP (0 ® PLAYER." 
X-DOWN FOR THE BOTTOM CIO PLAYER. 


bi PK1NT jBS ffgffWP Ia g SCORE IS "LS : FORT=lTO2000:NEXT : PRINT"t3" :G0TG1 

1 “ ns "!L"«.fwn *»***» SrT. pts , 


63 PRINT "0 ■ GOT THERE FIRST SO 

64 GOT068_ 

65 PRINTTESHTHIS COMPETITION WR 

66 PRINTGOT THERE FIRST SO 

67 G0T068_ 

68 PRINT"BHtlNOTHER GAME (YXNV 

69 GETF$-' IFF$=" "THEN69 

70 IFFf="Y"THENRUN 

71 END 


HE f*WON#*" 

FOR THE FIRST PLAYER TO GET TO 10 PTS AN 
HE *#WON#*" 





MONOPOLY 

MANAGER 


Here is a program that is not 
actually a game, rather it assis¬ 
ts in playing the traditional 
board game of Monopoly. The 
screen displays the names and 
bank balances of up to six 
players and rolls the dice on 
screen when you hit the space 
bar. 


< MRX 8 LETTERS>, 


10 FRINT" aaaSBH MONOPOLY MRNRGER 3" 

20 FORT =1 TO500 : NEXT 

30 PR I NT " HBBfra B.W.MADDEN 

40 PRINT"EBB FEBRUARY 1933 3" 

50 FORT®1 TO1000:NEXT'PRINT"BSS INSTRUCTIONS (Y/N)" 

60 GETRt: IFA*<>" Y" ANDA$v-> "NTHEN60 
65 IFA*="N"THEN80 

?0 PR I NT'WH IS PROGRAM ROLLS THEDIE (BY HITTING SPACE 
RNCE 

71 PR I NT "FOR UP TO SIX .PLAYERS.'; 

72 PRINT"ERFTER EACH ROLL OF THEBIE SE.LfcCI FROM THE 

73 PRINT"TRANSACT I OH YOU WANT." 

74 PR INI '.WHEN ENTER THE PLAYER NUMBER (S) AND THE 

75 PRINT"EHB HSNOW HIT ANY KEY. SB" 

76 GETA* : IFA*=""THEH76 

80 PRINT"D!HOW MANY PLAYERS(2-6)":INPUTM 
85 IFM<20RM>6THEN0U.l OS0 

90 PRINT"QBENTER PLAYERS NAMES. (MAX 8 LETTERS)." 

91 F0RN=1T0M 

92 INPIJTP*(N) 

93 IFLEN(P*(N))>8THENPRINT'WHAT NAME IS TOO LONG. ABBR: 

94 NEXTN 

95 F0RN=1 TOM:BB(N)=806:NEXTN : B*="BBANKRUPT3" 

100 REM SCREEN PRINT ROUTINE 

110 PRINT"CKS^MONOPOLY MANAGER!^" 

111 F0RX=3164T03185:POKEX,102:POKEX+30720,6 : NEXTX 
115 PRINT"CHWIT SPACE TO ROLL DICE®" 

120 F0RN=1T0M: PRINTTABC10)"@"N"S"; P*CN) : PR I NTT ABC 11) 

121 P0KE38432+N#44,1 

122 IFBBC N)=>0THEHGOTO123 

123 IF B.B(N)C0THENPRINTTABC11) "CHBANKRUPT3" 

124 NEXTN 

130 REMPRINTTRANSACT ION OPTIONS 

140 PR mi " fflmamMrMtiwmtia& .tsELECT transaction#*®" 
160 PR I NT "CM PLAYER PASSES GO'; 

170 PR I NT"SB! BANK PAYS PLAYER" 

180 PRINT"SCI PLAYER PAYS BANK" 

185 PRINT"I3DS PLAYER PAYS PLAYER" 

186 PRINT"®! NO TRANSACTION" 

191 GETA$: IFA3PO" "THEN191 

192 IFA*=" "THENGOSUB1000 


After entering the program 
enter the name of each player. 
Then, roll the dice. Finally 
select which transaction you re¬ 
quire and enter the requested 
information. The computer does 
the rest. If a player ends up with 
no money then he is declared 
bankrupt and no more data will 
be accepted for him. 

If you wish to give each 
player more money to begin 
with alter the value of BB(N) in 
line 95. 

B.W. Madden 
Surry Hills NSW 

AND KEEPS A BANK BAL 


OPTIONS WHICH" 
AMOUNT." 


TOO LONG.ABBREVIATE 


•' G0T092 


="BBANKRUPT3" 


:BB(N) 


193 GETS* : IFS*<>"A"ANDS*<>" B" ANDS*<>" V V.ANX'S$C 


'ANDS*0"E"THEN 193 


200 IFS* = "A"THENGOSUB1950=GOTO300 

201 IFS*="B"THENGOSUB1950:GOTO400 

202 IFS*="C"THENGOSUB1950:GOTO500 

203 IFS*="D"THENGOSUB1950 : GOTO600 

204 GOTO110_ 

300 PR I NT " BmimtmmmWLtoME Ul ER PLAYER NUMBER" : INPUTS: IFQ<1ORQ>6THENUOTO300 
305 IFBB<Q)C0THENGOSUB1500:GOTO300 
310 BB(Q)= BB(Q)+280 =GOTO 110 

400 PR I NT " HHSKM WBMfiSEMfflSF Q PLAYER NUMBER" : INPUTS-' IFQ<1ORQ>6THENGOTO400 

401 IFBB < Q K0THENGOSUB1500:GOTO400 

405 PRINT"ENTER AMOUNT " : INPUTA 

410 BB(Q)= BB(Q)+A=QOTO110 

500 PRINTPLAYER NUMBER" : INPUTQ: IFQ<1ORQ>6THENGOTO500 

501 I FBB (Q) (-0THENGOSUB1500: GOTO500 

505 PRINT "ENTER AMOUNT " ■' INPUT A 

510 BB<Q)®BB<Q)-R:GOTO110 

600 PRINT " WSSSBBSSSSSMSM ^O PLAYER NUMBER" •• INPUTQ: IFQ<1ORQ>MTHENGOTO600 

601 IFBB(Q )<0THENGOSUB1500:GOT O600 

602 PR I NT PLAYER NUMBER ": INPUTP ; IFP<lORP>MTHENGOTO60i 

2 I 


INPUTQ •' IFQ< 1 ORQ>6THENGOTO400 


INPUTQ:IFQ<1ORQ>6THENGOTO500 


89 


MONOPOLY MANAGER 


603 IFP=QTHENGOTO602 

604 IFBBCP)<0THENGO3UB1510:GOTO602 

610 PRINT"ENTER AMOUNT " : INPUTP 

620 BB<Q)=BB''QHA : .B.B<P:'=BB<P)-A:GOTO110 
1000 REM DIE ROLL/PRINT ROUTINE 


1010 

101 ? 

1020 

1030 

1040 

1050 

1060 

1070 

1000 

1090 

1110 

1120 

1130 

1140 

1150 

1160 


DO$=' 

D0#=" 

Dl#=' 

D2*=' 

D3$=' 

D4#=" 

D5#=' 

D6$ 


m oaf m mum ioi uni Dm ’ 

am am 


BW 


SQIJO 




Q1LTQ.TQ 


■■Hi" 

M if — BMi I T 

■iniiuian i 




M I NT " MBHttlll " DO#: PR I NT "g 
fl=INTCRND<l)#6+l> 


QQQllJ 


11 D0$ 


IFA=1THENPRINT 

IFA=2THENPRINT 

IFR»3THENPRINT 

IFA=4THENPRINT 

IFA=5THENPRINT 

IFA=6THEH.RRINT 


, WMtt»H "Dl* 
|"D2# 


SQQ0JJJ 


'gppmi"D3# 
n n D4$ 


BHHMlir 'DS* 

B»Wtt>H "D6$ _ 

1170 R.R I NT "EBEiMIM&EB" DO#: PR I NT" 1MMB" D0# 

1180 B= I NT (. RND < 1 > *6+1>_ 

1 FB= 1THENPRI NT D1 # 

1.FB-2THENPR I NT D2# 


1210 

1220 

1230 

1240 

1250 

1260 

1310 

1400 

1500 

1510 

1950 


I fb=3THENPR I NT " mmmmteBOS " D3# 

I FB=4THENPR I NT " MjfeteattMgMiJU 11 D4$ 

I FE=5THENPR I NT " &&flBB38BIB!KE '' D5# 

I FB=6THENPR I NT " ffltfflEMBESEB " 

T FROBTHENPRI NT isillllllllll " : RETURN 

PR I NT DOUBLE! ! ailllf ■■■■ROLL AGAIN "; ■ GOTO 193 

PR I NT" PLAYER"; Q 13 .BANKRUPT" = RETURN 
PRINT"PLAVER"JP i "IS BANKRUPT":RETURN 

FORX=8054TO8185 ■' POKEX, 32: N.E.XTX: RETURN ■ 


ORIENTEER 


Lost in the mystic northern 
forest! 

Escape lies to the south but 
each step weakens you and the 
way is guarded by wolves, 
fierce lions, grizzly bears and 
evil ogres. 

Beware of disappearing trees 
and above all else the ancient 
stone rings that transport the 
unwary to someplace in the 
north. 

To travel north, south, east or 
west you simply press the cor¬ 
responding N, S, E or W key. 

Mapping the terrain is best 
achieved on 12 by 100 square 
grid paper. You start at the 
most north-west corner. 

The terrain “wraps around” 
west and east, as does your 
monitor screen, therefore travel¬ 
ling east 12 moves puts you 
one move south. 


The program although short 
used almost all BASIC memory 
on the 3.5K VIC-20 through use 
of the DIM statement that sets 
an integer array to contain the 
terrain information. 


Please note - the underlined 
“Q” in line 4 is a cursor down 
which appears as a reverse “Q” 
on the screen. 

Peter Bagust 
Sans Souci NSW 


1 L*=”TREECAUER0CKHILLU00DRING0GREBEARLI 

QNUIOLF "DINRxf 1200 ]: INPUT "NAME" ; S=999 

2 A=PEEKC 197 3= ON-CA=64 3G0T02: S =S-1: R*CR 3 
--l: FORT=0TO350: NEXT: IFR>1188THEN6 

3 R=R+f.A=9 3-C A = 49 D+12*C CA=28 3--C C A =41 3 3 3: 
R=Rx-CR>-l3;L=R*CR3:IFL=0THENL=INTCRNDC1 
3x10 3 

4 PR I NT" QLANDflARK •'MID$CL$ , CL*4+1 3,43:R = 
R-INTCRNDCl3xRx-CL=533:IFL<6THEN2 

5 0N-CRNDC13<CL/1033GOTO2:PRINTN$" WAS A 
TTACKED":8=S-15+LSPRINT"STRENGTH"S:IFS>0 
THEN2 

6 PRINT'^THY JOURNEY ENDETH": IFS>0THENPRI 
NTNV SURUIUED 2 WILL THE NEXT":RUN 










M-RES SCREEN 
MACHINE CODE LOADER 


This program sets up a 160 by 
160 hi-res screen and incorpo¬ 
rates a routine for plotting 
points on the screen. It is avail¬ 
able for use with either BASIC 
or machine language routines. 
A 3K expander or Super Expan¬ 
der must be in place for use 
ones own basic programs. 

To use the routines type in 
the program, run it, and then 
type NEW. The machine code 
is now in place beginning at 
7296 (take care when typing in 
the data statements as an error 


here may cause the program to 
crash later on). Basic programs 
can now be typed in as usual. 
Alternatively the above program 
could be incorporated inside a 
BASIC program. 

To set up the hi-res screen 
use SYS 7296. 

To plot points poke an X 
value into 7679 and a Y value 
into 7678 then use SYS 7394. 

The value in 7677 determines 
whether the point is plotted or 
unplotted. A zero here causes 


the point to be unplotted. A non¬ 
zero causes the point to be plot¬ 
ted. To clear whole screen use 
SYS 7361. 

Note. If the points are to be 
plotted in a colour other than 
white then the screen must be 
filled with this colour after hi-res 
has been set up. 

An example of how the 
routines might be used is given 
in the following program which 
plots the polar co-ordinates 
graph...R = SIN5J 


10 K>BJ=7296T07465:READA:P0KEJ,AiNEXT:P0KE56,16sF0KK55»0tPCK#5Z,16:J0O5l,0 
20 DATA169,14,U1,0,144,169,43,HI, 1,144,169,148,141,2,144,169,21,HI,3,144 
30 DATA169,252,141,5,144,169,147,32,210,255,169,30,133,2,169,0,133,1,160,0 
40 DATA162,0,138,145,1,232,152,24,105,20,1o8,201,200,208,243,160,0,230,1,165 
50 DATA1,201,20,208,233,169,16,133,2,169,0,133,1,160,0,169,0,145,1,230 
60 DATA1,208,2,230,2,165,2,201,28,208,240,165,1,201,128,208,234,96,173,255 
70 DATA29,41,248,133,1,169,16,133,2,169,0,160,20,24,101,1,144,2,230,2 
80 DATA136,208,246,133,1,172,254,29,173,255,29,41,7,170,169,128,224,0,240,4 
90 DATA74, 202,208,252,174,253,29,208,14, HI, 252,29,169,255,56,237,252,29,49, 
100 DATA145, 1,96,17,1,145,1,96,0,0 


The next program demon¬ 
strates how a machine code 
program might use the routines. 
To run it load and run the hi-res 
screen program. Then load and 
run this program. Type SYS 
7621 and a small cross will be 


“bounced” around the screen in 
smooth hi-res motion. 

This program can be run on 
an unexpanded VIC but any 
BASIC programs in memory will 
be lost. (POKE56,16 and 
POKE52,16) statements will 


have to be changed to 
(POKE56.28 and POKE52.28) 
in the screen program. 


Wayne Rochester 
Kalgoorlie WA 


10 P0RJ=7464T07626:HEADA:P0KBJ,A:NiiXT:P0KE36879,136:PRIKTCHR$(5) 

20 DATA162,0,173,241,29,24,125,187,29, HI, 255,29,232,173,240,29,125,187,29, HI 
30 BATA254,29,136,72,32,226,28,104,170,232,224,10,206,224,96,162,0,160,0,169 
40 DATA), 141,242,29, HI, 243,29,142,241,29, HO, 240,29,138,72,152,72,169,1,H1 
50 DATA253,29,32,40,29,160,0,162,0,232,208,253,200,192,8,208,246,169,0,141 
60 DATA253,29,32,40,29,104,168,104,170,173,242,29,208,11,232,224,154,208,14,238 
70 DATA242,29,76,153,29,202,224,0,208,3,206,242,29,173,243,29,208,11,200,192 
80 DATA149,208,3,238,243,29,76,87,29,136,192,0,208,3,206,243,29,76,87,29 
90 DATAO,206,243,29,76,87,29,0,2,2,0,2,2,2,4,4,2,32,128,28,76,75,29 



GALAXIAN 2 


In this program the player has 
to shoot the alien before it in¬ 
vades. The player only gets one 
man but there are 100 possible 
levels (it is best to start at 
around level 5). As your score 
increases so does your level 
and it gets increasingly harder. 

The alien will show itself for 
a random time (this decreases 
as the level goes up). The ran¬ 
dom statement in line 580 
works out the cursor position for 
each stage down the screen. 
The random statement in line 
620 keeps on generating num¬ 
bers until it gets one lower than 
the present level. Between 
numbers being generated the 
player can enter commands 


through the keyboard. 

After an alien is shot, a new 
alien replaces it at the top of the 
screen. 

The sound effects and PCG 
data were POKEd into memory. 

The keys to use are 7 for 
Left, 7 for Right and ‘Z’ to Fire. 
Also to make the game easier 
and to stop the keyboard from 
getting too badly bashed I 
added the keys ‘A’ and ” ” to 
move to the far left and right pf 
the screen respectively. The 
game goes on until the alien in¬ 
vades. 


Peter Lutton 
Huon VIC 


GALAX IAN 


REM * * * GALAXIAN 2 * * * 

REM * * * By F'.J. Lutton (C) 30/9/1983 * * * 

G=0 

CLS 

INVERSE:NORMAL 

CURS 25, 1:PRINT"Wei come to_" 

CURS 15, 2:UNDERLINE:PRI NT" * * •* GALAXIAN 2 * + * 

NORMAL 

PRINT 

PRI NT,"Gal axian 2 is real time space action game involving" 
PRINT, "quick re-flexes and marksman like shooting skill. The" 
PRINT, "object o-f the game is to shoot the leering aliens" 
PRINT,"before they get to your level. You have only one man" 
PRINT, "so beware !!! The control keys are ', ’ to go left," 
PRINT,"'.’ to go right, 'Z’ to fire your lasers, 'A’ to go" 
PRINT,"to the far left of the screen and " ’ to go to the" 
PRINT,"far right of the screen." 

PRINT:PRINT,"Which skill level, 1 to 10 (1 is the easiest) 
INPUT H 


go left, 
'A’ to go" 
go to the" 


CURS 16,14:UNDERLINE:PRINT" * 


GOOD LUCK 


CLS:CURS 532:PRINT"P1ease wait . ..." 

P=6348B+65*16 
FOR A=P TO P+16*10-1 
READ BjPQKE A,B 
NEXT £ 

DA T A O,o,O,31.32,6/, 1 31, 128, 136,68,35 
DA in 24,24, 24,255,0,195,195,0,60,0,25 
1)A I A o,0,0,248,4,194.195.1,17,34,1 96, 
DA TA 0, o, o, 0, 1,2,4,8, 16,32,64, 128, 128 
DA r A o , O, O , O , 255, 0 , 0 ,31,32,67,6/, 32,3 
DAT A 24,24, 60 ,126, 255, 24, 24,255, 2’4,21 
DA I A o, 0 . 0 ,o,255,0, 0 ,24o,8,196,196,8, 
DA 1 A 0 , o, o, o, 128,64,32, 16,8,4, 2, 1 , 1 , 1 
DA I A 34,24.24,24,24. 24.24,24,0,0,o,O, 
Du r a i.), 0 , o, 0 . 0 , o, o, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
Da I A 343 . ,:29, 1 05. 96, 76,69,62,64 , 2 1 1,2 
DA 1h 21J ,2, 16, 254, 1 3, 52,239,225,241,2 
EUR i -13ooo TO 15034 
RE AD l : F OE El F , I : NEX f F 

CURS lo.14:PRINT"*** Push anv key to 
A4'fc-kEY: IF A4*=" " THEN 500 


KLM 1E 3 ;- l 3 T HE N NORMAL : GO T U 1 380O 
I-: ONI 1 AND*56) : IP b 5 THEN 580 
3! IRD Yf , 3: PR IN I "ABLABC" 

11 : .-=10 I HEN NORMAL: GOT U 930 

mJ f t E 1 

(. INI 1 AND* J 0O) 

II ( H I HEN CIJRG b,S:PklN1 "JJJJJJ":GO TO 560 

IE b-Mwi UR 0=600 OR 0=1080 OR 0=1660 OR 0 = 2220 OR 0=2980 OR G=~8?0 OR G=4 
R 0 = 3/80 OR 0 -6900 I HEN LE'I H=H+i : G=G+ 100*H: 60SUB 1000 
II i.= 2 IHE-N LLIRO L, 15: PR I N T " J J J J J " : C = 5: CURB C, 15: PRINT " DEFGH" : NORMAL : CURS 

PRIM n : F. O 

It L-09 1 HEN CURS G, 15:PR1 NT"JJJJJ":0 = 56:CURS C, 15: PR I NT " DEP GH" 

U Hlt="." IHETJ CURS C, 13: PRINT "JJ.JJJ" : C=C-3 

11 Hit-"." I MEN OURS C, 13: PRINT "JJJJJ" : C = C+-3 

II n l 'i - " 7 " UR A 1 " T HEN GO 1 O 740 

II A I * - " A " OR A1 f. = " a " I HEN CURS C, 15: PR IN T' " J J J J J " : C=5 : CURS C, 1 5: PR I NT " DEFG 


D-D I 

IE A l THEN CURS 

J f 0 = 0 I HEN 860 
cURS C*2, JJ: PRINT "J" 


: PRINT " JJJJJ " : 056: CURS 


2 = B + 5 THEN 870 E 


i.UR :. P. s: PRINT "JJJ.JJJ" 

Llll S 1 . 1 4 : NORMAL : Pa IN T "SI ORE" 

UJES 1. IT: f PIN I O: L.L, 

l "(•: > MU... 10 I loo; 1 . :-USR ISvioo, F ) : Nt. a I E 

ljUfli O3o 

I ill. t =4o30 | l) \84/ 0 1 LF ■ 1 : c=USR ( 15000. P ) : NLX T F 
CURS 0.;2: PR IN T " * * 0 A ME DYER * * *" 

I UR'S 20. 1 o: PR INI "uCOKE : ":0 

CORO 15.J1:PRINT"WOULD YOU LIEE ANOTHER GAME (Y OR N) 
A.jV-t L y : 11 m 5f = " " THEN 97o 

II mOI--"i" THE.N INVERSE : NORMAL: CLEAR: RESTORE: GOTO 270 
L.I S: END 

NORMAL:CURS 1.4:PR 1N f"LEVEL" 

LI.JRO 1.5: PR I NT H 
cURS 1. 14: PRIM "SCORE" 

CURS 1 . 15:PRINT G:PCG 
RLI URN 




















SOLITAIRE 


10 " 

/ \" 


OO.OOCLB.CURBZO.B^INT-DO — INSTRUCTIONS —A34 
001101F A3* ="Y"ORA3*= V THENG0SUB910 

n0130D°MFn^>) :DIM0(lfo> :DIMQU6) 

00140CLS:RESTORE 

O0150CURS2' >,4:PRINT"1" 

(,)i) 160CURS 19,5: PR I NT / 

O' 11 70CURS18,6: PR I NT " 2 - 3" 

OO18' 'CURS 17,7: PR I NT / \ / 
i »0190CURS 16,8: PR I NT 4 5 6 

i >0200CURS 15,9: PR I NT / W W \ 

< >u21OCURS14,10: PR I NT 7 -. B 9 
<X>320CURS 13,11: F'R I NT / \ / ' ' 

Oo730CURS12,12:PRINT"11- 12- 13- 14- lu 

o0240F0RN=1T015 
.><>250READA,B 
UM260F(N)=A:0(N)=B 
i.io270NEXTN 

002B0DAT A20,4,18,6,22,6,16,8 , w-V,8 
00290DATA24 , B , 1 4,10,18 , 10 , 2*^10 , -.6^1 
0O300DATA 12,12,16,12,20,12, ^4,1 <-, ^8,1 -t 

O0310F0RN=lT015 

00 3200 (N) -1 

S’-4^CURS0=INPUT-WHICH ONE DO YOU WISH TO REMOVE",F 
OO 350IFF 150RF 1THEN340 

00360Q(F)=0:CURSP(F),0(F) SPRINT * 

0O?70DATAI.2,«.1.5,6.2,«.7,2,S,9, : 4, i ,B,v,6,10 

0U3B0DATA4,2,l,4,7,ll,4,8,13 i 4, J ,6,w,9, 1 4,^,B,l- 

00430DAT A 15,10,6,0,0,0 
00440F0RN=1 TO15 
0045OM(N>=N 
00460NEX1N 
0')470CURS0: PRINT" 


":CURSO:INPUT"MOVE FROM "?A 


":CURS1 ,2: INPUT"JUMP OVER "»B 


004B0PLAYS:CURSO:PRINT" 

00490IF0(A)=0THEN640 
00500PLAY8:CURS1,2:PRINT" 

0O5l0IFQ(B)=0THEN640 
00520REST0RE370:CURS1,3: PRINT 
00530W=0 
00540F0RN=1T037 
00550IFW=2THEN590 
00560IFW=2THEN660 
00570READX,Y,Z 
005801FA= XTHEN600 

00590NEXTN:IFW=2THEN660ELSE80T0640 
00600IFB=YTHEN620 
0061ONEXTN:G0T0640 
00620IFQ(Z)=0THENLETW=2 
00630NEXTN 

wtsOPRINT"BAD MOVE - TRY AGAIN"s60T0480 
006600(X)=0:CURSP(X),0(X):PRINT"* 

006700(Y)=0:CURSP(Y > ,0(Y):PRINT"* 

006800(Z)=1:CURSP(Z)-1,0(Z>:PRINTM(Z):W-0 

00690F0RN=1TO15 
00700IFQ(N)=1THEN720 
00710NEXTN:G0T0780 
00720REST0RE370 
00730F0RV=1T037 
00740READX,Y , Z 

007501FN= X ANDO(Y)=1ANDO(Z)=OTHENLETW-1 

00760NEXTV 

00770NEXTN 

00780IFW=1THEN480 

00790S=0 

00800F0RN=1 TO15 

008101FO < N)=1THENLETS=S+1 

008301FS=*1THENLETA1$=" GRADE A “ eENI0US " 

r40^^HENLETA.*-GRADE B - VERY .NTEL:IGENT' 

r»nR er iOIFS=3THENLETAlf= "GRADE C - AVERAGE 

00860IFS=4THENLETA1*="GRADE D - BELOW AVERAGE" 

00870IFS>4THENLETA1$="GRADE E AND BELLOW - TERRIBLE" 

00880CLS 

00890CURS20,8:PRINTA1# 

00900F0RN=1 TO1000:NEXTN:GOTO140 

Svio TRIANGULAR GRID OF IS " 

00930 PRINT" THIS IS A nf . HAS ITS 0WN IDENTIFYING NUMBER. TO" 

00940 PRINT-POSITIONS. THE PIECE YOU WISH TO MOVE " 

00950 PRINT-MOVE YOU !NPUT THE NUMBE F THE TQ JUMP 0V ER .FOR YOUR" 

00960 PR I NT "AND THE NUMBER OF THEN PIECE YOU WISH Qp JHE PIN Y 0U WISH 

00900 S^tTe MARKED BY ^ER.X^AT^HE BEGINNING OF 

?,0990 Y ?R,N A T"GA E ME°';l T N G E REMOV E E “ SanY PIECES AS POSSIBLE FROM THE BOARD" 

0?000 prSnt- — HIT any key to continue ..." 

01010 A1*=KEY:IFA1$=""THEN1010 
01020 RETURN 


Solitaire is a program to simu¬ 
late the IQ game of the same 
name. You have a board in the 
shape of a triangle with 15 
pegs. You are asked which peg 
you would like to move. To 
move a peg you must nominate 
the number of the peg you wish 
to move and the number of the 
peg you wish it to jump over. 
The hole it will land in should be 
marked by an asterix (showing 
it is empty). The aim of the 
game is to remove as many of 
the pegs as possible by jumping 
them with other pegs. 

There is a delay of approxi¬ 
mately 5-10 seconds while the 
computer checks if there are 
any other moves. 

This program should be sim¬ 
ple to convert to other basics 
knowing that: 

CURS X,Y = PRINT AT or 
PRINT@ ; 

CURSO = moves the cursor to 
the top left hand corner without 
CLSing; 

POKE 220,121 = removes cur¬ 
sor; 

PLAY 8 = plays a note; 
RESTORE X = restores data 
read pointer to line X; 
UNDERLINE = underlines the 
text; 

NORMAL = returns output to 
normal after UNDERLINE. 


Keith Westley 
Girraween NSW 
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00 

cn 

iEBII MASTER 

Screen Master is a program 1 

Although the program loads 

320: moves the hidden screen 



wrote that allows you to copy 

the machine language at mem¬ 

onto the normal screen. 



your normal screen onto your 

ory location 1050 (Decimal) on¬ 

These three sets of data can 



hidden screen, copy your hid¬ 

wards, it can be placed any¬ 

be used individually or al¬ 



den screen onto your first 

where in memory. The machine 

together using line 280 as a 



screen, and swap between the 

language routines are broken 

selector (as shown). After run¬ 



two. This is a fast and easy way 

up into separate lines: 

ning the program try listing the 



to store and retrieve a second 

290 and 300: screen swapping 

program, then type 



screen-full of information. The 

data. 

USR(1050,2). Don’t panic! Type 



demonstration program shows 

310: moves the normal screen 

USR(1050,2) again. 



some other applications in 

onto the hidden screen. 

After running the SCREEN 



BASIC programs. 


MASTER program type in: 





J = USR(1050,0) to copy the 





normal screen onto hidden 

00250 

REM 

* * * SCREEN MASTER * # # 

By Wayne Grant. 

screen. J = USR(1050,1) to 

00260 

RESTORE 280 : FOR 1*0 TO 58 : READ D 


copy the hidden screen onto 

00270 

POKE 

1+1050, D :NEXT I : RETURN 


normal screen. J = USR(1050,2) 

00280 

DATA 

121,254,0,40,42,254,1,40,26 


to swap the two screens. 

00290 

DATA 

33,0,240,17,0,244,62,255,1,255,3 

:, 197,78 


00300 

DATA' 

235,70,113,235,112,35,19,193,11, 

184,32,242,201 


00310 

DATA 

33,0,244,17,0,240,1,0,4,237,176, 

201 


00320 

DATA 

33,0,240,17,0,244,1,0,4,237,176, 

201,0 

Wayne Grant 





Canterbury NSW 


CATCH 


The object of the game is to 
catch as many asterisks as you 
can, by using the square brac¬ 
kets as controls (left and right 
respectively) to control your 
character, being the letter “t”. 

This program can easily be 
converted to run on other com¬ 
puters as the BASIC used is 
fairly universal, and quite sim¬ 
ple. 

David Hoiderness 
Wahroonga NSW 


1 <t CLJ: CU RS27,8 : PHlNT"C A T C H" : PRINT: PRINT: PRINT" ( 

22 Ir KEY# = "" THEN 20 

30 PCKE 220,16:POKE 257,97 

40 CLS 

50 CLEAR 

60 K = 0 

70 0=50 

80 S0=0 

9.0 X=INT(RND* 32) * 2 
100 IF X = 0 THEN 90 
110 Y=1 
120 L=6 
130 K=32 

140 CURS K,L:PRINT"T" 

1S0 CURS X,Y:PRINT"*" 

160 IF T = 0 THEN 220 
170 P30=KEY0: IF P30="" THEN 200 
180 IF P30 <> "" THEN 290 
190 CURS K,L :PRINT "T" 

200 T=T+1 
21C GOTO 160 
220 T=0 

230 CURS X,Y:PRINT »*" 

240 IF Y = 5 AND X <> K THEN 330 
250 IF X=K ANL Y=L-1 THEN 470 

260 Y=Y+1 

270 CURS X, Y :PRINT »*" 

280 GOTO 160 

290 CURS K,L:PRINT " " 

300 IF P30 = "3" THEN LET K=K+2 

310 IF P30 = "C" THEN LET K=K-2 

313 IF K> 64 THEN' LET E=84 

315 IF K< 2 THEN Lid K=2 

320 GOTO 190 

330 N= INT(RND* 15)*1 

340 PLAY W;W+3; : aV7;W*3;W 

350 F=0 

360 CURS X,Y 

370 PRINT "*" 


(Hit a key to begin)) 


380 FOR G = 1 TO 30:NEXT G 
390 CURS X,Y:PRINT " » 

400 FOR G r 1 TO 30:NEXT G 
410 IF F=4 THEN GOTO 430 
420 LET F=F +1:G0T0 360 

430 E=K+1:CURS 1,10:PRINT "Kisses = ";K 
440 IF K = 3 THEN PLAY 0,24:GOTO 550 
450 CURS 1,L:PRINT SPC(64) 

460 GOTO 90 

470 W=INT(RND* 12)*1:PLAYW;W+12 

480 S0=S0+10:IF S0=350 OR S0=500 THEN GOSUB 620 

490 CURS 1,12:PRINT "Score = ";S0 

500 IF S0 > H0 THEN LET H0=S0 

510 PRINT:PRINT "Highest score = ";H0 

520 CURS 1,L:PRINT SPC(64) 

530 LET 0=0-1 
540 GOTO 90 
550 CLS 

560 PRINT TAB(23);"G A K E C V E R" 

570 PRINT:PRINT"Would you like to play again ?" 
580 P30 = KEY0:IFP30="" T:;EN 580' 

590 IF P30="Y < " THEN CLS:GOTO60 

600 IF P30="N" THEN PRINT "Bye then.":END 

610 GOTO 580 

620 PLAY 1;6;1;6;10;6;10;13,4 
630 CURS 1,10:PRINT SPC(12) 

640 FOR I = 1 TO 5 

650 CURS 1,10:PRINT "Kisses = 0" 

660 PLAY 0,2 

670 CURS 1,10:PRINT SPC(12) 

68® PLAY 0,2 
690 NEXT I 
700 K=0:O=50 
710 RETURN 


95 




00100REM 


By Richard Larkin 


ANOTHER 

CATCH! 


Catch is an addictive moving 
graphics game. You catch the 
dots and the computer catches 
you. 

Richard Larkin 
Dee Why NSW 


00110REM CATCH 

00120 CLS : PRINT//TABC7)"Welcome to Catch. In this same you have to coii.de wit 
h"/"a certain number of dots. You will be chased by a computer guardthat wi'I st 
art on the right side."? 

00130 PRINT " To set points you must avoid capture and catch dots. If you go off 
a side you will come back on the other side. The guard can not follow you off a 
ny side." 

00140 PRINT "You start in the middle. If the guard catches too many dots you can 
not fill your quota and will lose."/"<»> LEFT"/"<.> RIGHT"/"<A> UP"/"<Z> 

DOWN" 

00150 POKE220,63 : PRINT "The computer guard gets faster so watch out!"/"Any key 
to start.." ? I=USR<32774> 

00160 CLEAR : P0KE162,30 : P0KE163,128 ? Hl=.6 

00170 SDS : Q=INT((1.1-H1)*12) ? CLS s LORES : FOR X=0TO19+Q : SET INT<RND*B7+20 
),INTCRND*31+8) * NEXT X 

00180 J=0 s PLOT 5,3 TO 5,45 TO 121,45 TO 121,3 TO 5,3 : X=64 : Y=24 : N=0 : M=0 
s B1=100 : 01=24 : V1=0 : 11=0 ? SD4 

00190 CURS 22,IE : PRINT "Any key to start _"? : I=USR<32774) : CURS 1,1B ? P 

RINT fAE3 32J-! 


SPRACE 

00100REY SPRACE 

001 :l. 0REM By R. chard Larki r, 


Sprace is a real time reflex 
game. Just for fun. 

Richard Larkin 
Dee Why NSW 


001. 20RE Y First a 


s I o w s t a. 9 e t h v o u <3 i-T a p a e s a s e *\i a y . 


7 


00130REM Then speed : ns tr.roush space. 

00140 S1=0 ’ N0R v AL : SDS s PCKEv.£B2, 30 : POT £ 163, 128 s 
UQ3LB 330 3 FOR X^~1 64~0~ : READY s P GKEX, Y : NEXT'X - 

00130 0=2 ” F—200 " C-' — 3b?3 « L3 .' X—5 ■ UL..U 

010130 C1 -- RN D :+ - F LT CQ-+- 3 ) : Si -RND+FLT ( Q+-3 ) s 31 (Q) /5 » 

CURS "MTCC:.. > - '1.5 s 3 SI NT fa.;' 3 : Z?.=S) 

ll 31 7 3 Z1 - 1 1 h- . 1 :: S 1 S1 :: P - 3200+!. M1' ( C 0 3 ( Z 1 } C1 +• B1 N (. 

:• P C) -• 3 F -<• X v 2 3 4 : 1 - R N D > . 3 T H E1, l. E 1" A l -• ,v +;; \i 7 C R M D + UJ, ) : 7 F 


00130 IF F> 0 THEN LET X~ P EEN t 25S> " X=44 THEN ::> 0KEC7 

0 0 1: 2 I F 3 E C C1 {> 3 2 h iv D P E 3 *\ ( C ) <) 3:3- i • ■. 2 i'v 3.0 0 3 L. S E P 2 K 

+• J. — ! "i R;\iD 4 'F : r ' ,\i ••• .1—•" l... i (. I'v * t Le 

00230 r - r ._i-iVS 7 2 •: 13 2 :• 11.1 X2 2b? 2 - PPI 1 3Te : I c ; one 1 1 ‘ - 

:: CURS P-'-3200, 12 : ? I N r t hG 32^ : 

00220 S1=S1+. 1 s CURS 1023 ; F==F“-1 “ -DR X==01"GG : PONEIN 

X s IF F>0 ""‘HEN LE“." X- P 2EKC253> : 1F' X==44 TnLN POXES, 3 

EM ^OKEC?32 " C=01 


: T3332207 0 : C..S s SDS s 
? 1 M T/ "Type a n y •■•••: e y t o s 

BURS 1, 13 r PR7N-" +-AB3 

Z • >B ■+• 3 2) s I-- 5 2 K E P w 7 254 

U < SO RIM) 3 THEN LET W1==W1 

1 1 Hi\i '!. 7 0 

CURS 13 : PRINT th63 2 

! ( R r \l D - : b 4 - _■ 2 (70), 232 « N E X 








00200 RESET X* Y i P0KE237, 1 : O-PEEK(238) : IF 0=1 THEN LET Y=Y+1 ELSE IF 0=26 T 
HEN LET Y-Y-l ELSE IF 0-46 THEN LET X-X+l ELSE IF 0=44 THEN LET X=X-1 

00210 IF X> 119 THEN LET X-7 ELSE IF X<7 THEN LET X = U9 ELSE IF Y> 43 THEN LET Y=5 
ELSE IF Y <5 THEN LET Y-43 

00220 Z-< NOT< POINT(X,Y) ) ) « IF INT(B1)-X OND INT(01)=Y THEN 290 

00230 IF Z THEN 250 ELSE LET T=T+1 : S=S+T : RESET X, Y : CURS 28,16 : PRINT"SCOR 
F. ="S; : PLOY20 : IF T<19 THEN 250 ELSE LET J=0 : H1-H1+.05 : T-0 t IF H1>1 THEN 
LET Hl=l 

00240 GOTO 170 

00250 SET X, Y : RESET INTCBl), INTCOl) : IF INT(B1))X THEN LET VI— HI ELSE IF INT 
CB1)<X THEN LET V1=H1 

00260 IF I NT C 01) > Y THEN LET Il—Hl ELSE IF INT(01XY THEN LET Il-Hl 
00270 B1=B1+V1 : 01=01+11 : IF INT<B1)=X OND INT(01)=Y THEN 290 

00260 IF POINTCINTCBl),INTCOl)) THEN LET J=J+1 s IF J=Q THEN CURS 27,6 : PRINT"I 
IMPOSSIBLE. " : PL0Y6,2;5,2;4,2;3,2;2,2?1.2 : GOTO 290 ELSE SET INTCBl),INTC01) : 
GOTO 200 

00290 FOR X=1TO10 : PLOYX : K1*=KEY : NEXT X : CLS s PRINT///"You have been hit 
:'"/"Total score="S+T 

00300 PRINT"Ony key to Play again." : I=USR<32774) : GOTO 160 



00250 IF RND>. 5 THEN POKEINTCRND+64-3200),251 

002E0 POKEC?32 s PRINT : IF PEEK(0=25: THEM 0UT2, 59 s 0U72? 65 : F=F+10 

00270 IF PEEK(C) <> 32 AND PEEKC0 0 251 THEN 300 ELBE POKEC? 255 

002S0 K=K+1 = IF K<0*100+100 THEN CURS0 : PRINT F s GOTO 240 

00290 CURS 26? 2 : PRINT “Well done ! ! " : PLAY0?S s 0=0+1 : GOTO 1G0 

00300 FOR X=0TO9 : FOR Y=250TO247 STEP-1 s POKEC?Y s FOR Z=0TO10 s 0UT2?59 s OUT 
2? G5 : NEXT Z : NEXT Y s NEXT X : POKEC?253 s PL.AY0?10 

00310 CLS s PRINT++"You have "Sl*10" points." : IF INTCS:L>> 100 THEN PLAY9?5?4?9 
: PRINT"Well done !!" 


00320 PRINT"Type any Key to try again" : I=USR<32774> : GOTO 150 

00330 CLS- s PRINT//"The idea of the game is for you the "CHR(255)" to avoid the 
"CHR(253)'/" ? "CHR(254)" and "CHRC252)"? and Keep your fuel positive by docking"/ 
"with the "CHR(251) 

00340 PRINT"If you run out of fuel you will not be able to move "/"and will eras 
h. moves you left.moves you risht."sRETURN 


00350 DATA 102, 129? 129? 129? 0? 0? 0? 24, 24, 0? 0? 0? 129? 129? 129? 102? 129? BE? 0? B0? 66? 66? 6 
6, 0? 0? 86? 66? 66? 60, 0, 86? 129? 0? 0? 129, 66, 0, 60, 36? 36? 36, 36? 60? 0? 66? 129? 0? 0 


00360 

DATA 

00370 

DATA 

003S0 

DATA 

00390 

DATA 

00400 

DATA 

00410 

DATA 


0 ? 0 ? 0 ? 0 ? 
255?255? 
129?129? 
231?1S9, 
153?126? 
1S5?231? 


0, 66? 36, 24, 24? 36? 66, 0? 0? 0? 0? 0 

255? 224? 224? 224? 224? 252,252? 252,224? 224? 224? 224? 
66? 66? 36? 36? 24? 102?102? 24? 36,36? 66? 66? 129,129 
255? 60? 126?129? 126? 0? 66? 195? 36? 24? 24? 36? 195? 66 
102?219?219,102?102,153?153?102?102,219?219? 102, 
231,231? 66? 66, 102? 60? 24, 24? 24? 24? 60? 231,231? 126 



126? 153 


MEMSEE 


The program, Memsee, is a 
monitor with a difference. It has 
no fancy commands, but it 
dumps 64 by 15 pieces of mem¬ 
ory to the screen in ASCII code. 
It is like having a window on 
your computers memory, as it is 
continually updated. When you 
change a location or use certain 
BASIC commands you can in¬ 
stantly see the effect of it on the 
section of memory you are look¬ 
ing at. 

Richard Larkin 

Dee Why NSW 


00100REM BY R. LARKIN 

00110REM Make sure you type line ltttoith at least 11 characters 
00120REM af'ter the rem statement, other wise program will not 
00130REM work. 

00140REM This program displays contents of memory to screen in 
00150REM ASCII format. You may look at your memory and change 
001E0REM it in much the same way as with Mon iter. 

00170REM BUT as the screen is continually being up dated 
001B0REM you can see the effects of your changes. 

00190 FOR X-2308TO230S+11 : READ Y : POKEX.Y : NEXT X : REM DELETE 110,200 after 
first RUN then save. Do not edit line 100. 


DATA 33, 0,0, 17, 


, 237, 176, 201 


00210 CLS : PRlNT/"To move memory pointer use ’A’ and ‘ Z’ for up and down."/"And 
and for left and r i'sht. "/"Type <C>. to change a location. "/"Type <L> to 

chanse your Iocation" 


00220 PRINT "Any key to continue.." 


I=USR<32774> 


00230 POKE2309,0 : POKE 2310,0 : POKE220,0 : CLS : Q=0 : W=0 : CURS 11,16 : PRIN 
T "LOCATION -> 479"? : CURS 35,16 : PRINT "CONTENTS -> "PEEK(479)? 

002401=USRC2308) : POKE-3617,27 : CURS 48,16 : PRINT PEEK(L)" "? : P0KE257, 1 : 

P0KE259,1 : K1*=KEY : IF Kl*="" THEN 240 

5 00250 IF K1*="Z" THEN LET W=W+64 ELSE IF K1*="A" THEN LET W=W-64 ELSE IF Kl*=", " 
THEN LET W=W-1 ELSE IF Kl*="." THEN LET W=W+1 

00260 IF K1*="C" THEN 300 ELSE IF K1*="L" THEN 350 

00270 IF W> 255 THEN LET Q=Q+1 : W=W-256 

00280 IF W<0 THEN LET Q=Q-1 : W=W+256 

00290 POKE2309, W : POKE2310, Q : CURS 23, IE : L=Q*256+W+479 : PRINTL" "? s GOT 
0 240 

00300 A1 *= "" : CURS 48,16 : PRINT "/-/"£A4 Bj? 

00310 I=USR(2308) s K1*=KEY : IF Kl*>"2" OR K1*<"0" THEN 310 ELSE PRINT Kl*? : A 
1*=A1*+Kl* 

00320 I=USRC230S) : K1*=KEY : IF K1*<"0" OR (Al*="2"ANDK1*>"5") THEN 320 ELSE PR 
INT Kl*? : A1*=A1*+K1* 

00330 I=USR(2308) : K1*=KEY : IF K1*<"0" OR Kl*>"9" THEN 330 ELSE IF Al*="25" AN 
D Kl*>"5" THEN 330 ELSE PRINT Kit? : A1*=A1*+K1* 

00340 PLAY0 : f=INTCVALCAl$)) : CURS 50, IE : PRINT +A5 32«-5 : POKEL, E : GOTO 270 


00350 Al*= 


CURS 23,16 


00360 I=USR(2308) : K1*=KEY 
*=A1*+K1* 


PRINT "/-/"£A6 el}/ 

s IF Kl* <"0" OR Kl*>"6" THEN 360 ELSE PRINTK1*! s fll 


00370 I=USR<2308) : K1*=KEY 
INT Kl*; ? A1*=A1*+K1* 


00380 I=USR(2308) s Kl*=KEY 
WINT Kl*l i Q1*=A1*+K1* 


00390 I*=USR(230S) : Kl*=KEY 
PRINTK1*? : A1*=A1*+K1* 


IF Kl*<"0" OR <A1*="6"ANDK1*>"5") THEN 370 ELSE PR 
IF Kl * < " 0" OR (A1*="65"ANDK1*> "5" ) THEN 3R0L£LSE P 
IF Kl* <"0" OR (Al*="655"ANDK1*)"3") THEN 390 ELSE 


00400 I=USR(2308) : K1*=KEY : IF K1*<"0" OR (A1*="6553"ANDK1*>"5") THEN 400 ELSE 
PRINT Kl*? s A1*=A1*+K1* 


00410 PLAY0 : L=INT<VAL(A1*)) : Q=L/256-l : W=L-256*(L/256>-22^ 
r?I NT £A8 32j? s GOTO 270 


CURS 23,16 : P 





This game is really only suitable 
for Microbees with the faster 
clock rate modification. Even 
so, it gives an example of the 
logic behind real time games on 
a memory mapped screen. The 
DATA statements define the 
PCG characters used for the 
maze and monsters etc. 

Line 430 can be altered to 
allow input from a joystick at the 
parallel port. The maze can be 
redefined by changing the 
PRINT statements in lines 260 
to 380 (GG = wall, CD = dot) 
C.D. Roberts 
Hyde Park SA 



O01O0 REM * * * MUNCH * * * 

00110 CLS: POKE 220,16: CURS 23,5: PRINT " * * * MUNCH * * *" 

00120 CURS 21,6: PRINT "Written -for the MICROBEE" 

00130 CURS 24,7: PRINT " bv C.D.Roberts" 

O0140 DIM A<4>,B(4),C<4),F<4,1),0(4> 

00150 K=35: C0=.4: C<1>=61920: C(2)=61924: C(3)=62048: C(4)=62052 
00160 RESTORE: LORES: FOR 1=64528 TO 64719: READ Z: POKE I,Z: NEXT I 
O0170 CLS: H=0: S=0: GOSUB 210: GOSUB 250 
00180 GOSUB 430: GOSUB 550: IF H THEN 750 

O0190 IF W THEN PLAY 10;20;10;24; FOR 1=1 TO 800: NEXT I: GOSUB 210: GOSUB 250 
00200 GOTO 180 

00210 FOR 1=1 TO 4: POKE A(I),F(I,0): POKE A(I) + 1,F(I,1> 

O0220 A(I)=C(I): F(I,0)=199: F(I,11=199: NEXT I 
00230 E=62370: POKE E,193: POKE E+1,194: RETURN 
00240 REM * * * MAZE * * * 

O0250 CURS 1,2: PCG: PRINT CA8 643;CA54 711 

OO260 PRINT CA8 641;"GGCDCDCDCDCDGGGGCDCDCDCDCDEFCDCDCDCDCDGGGGCDCDCDCDCDGG" 
O0270 PRINT CAB 64];"GGEFGGGGGGCDCDCDCDGGCDGGGGCDGGGGCDGGCDCDCDCDGGGGGGEFGG" 
00280 PRINT CA8 643;"GGCDGGGGGGCDGGCDGGGGCDGGGGCDGGGGCDGGGGCDGGCDGGGGGGCDGG" 
O0290 PRINT CA8 643;"GGCDCDCDCDCDGGCDCDGGCDCDCDCDCDCDCDGGCDCDGGCDCDCDCDCDGG" 
O0300 PRINT CA8 643;"GGGGGGCDGGGGGGGGCDCDCDGGGGCDGGGGCDCDCDGGGGGGSGCDGGGGGG" 
00310 PRINT CA8 643;"GGCDCDCDCDCDGGCDCDGGCDGGHICDHIGGCDGGCDCDGGCDCDCDCDCDGG" 
00320 PRINT CAB 643;"GGCDGGGGGGCDCDEFGGGGCDCDCDEFCDCDCDGGGGEFCDCDGGGGGGCDGG" 
00330 PRINT CA8 643;"GGCDCDCDCDCDGGCDCDGGCDGGHICDHIGGCDGGCDCDGGCDCDCDCDCDGG" 
00340 PRI NT C A8 643;"GGGGGGCDGGGGGGGGCDCDCDGGGGCDGGGGCDCDCDGGGGGGGGCDGGGGGG" 
O0350 PRINT CA8 643;"GGCDCDCDCDCDGGCDCDGGCDCDCDCDCDCDCDGGCDCDGGCDCDCDCDCDGG" 
O0360 PRINT CA8 643;"GGCDGGGGGGCDGGCDGGGGCDGGGGCDGGGGCDGGGGCDGGCDGGGGGGCDGG" 
00370 PRINT CA8 643;"GGEFGGGGGGCDCDCDCDGGCDGGGGCDGGGGCDGGCDCDCDCDGGGGGGEFGG" 
0O380 PRINT CA8 643;”GGCDCDCDCDCDGGGGCDCDCDCDCDABCDCDCDCDCDGGGGCDCDCDCDCDGG" 
00390 PRINT CAB 643;CA54 713;: NORMAL: Q=186: W=0: T=1:CURS 128 
OO400 PRINT " Q -"\" A C -"\" 3 POKE 61573.204 

00410 POKE 61637,11: POKE 61701,13: POKE 61765,9: PLAY 24,2: RETURN 
00420 REM * * % MOVE MAN * * * 

00430 M=PEEK(258): IF M=17 THEN LET D=-64 ELSE IF M=1 THEN LET D=64 ELSE IF M=27 
THEN LET D=-2 ELSE IF M=29 THEN LET D=2 ELSE 520 
O0440 Z=PEEK (E+D) : IF Z = 199 THEN 520 

OO450 OUT 2,64: OUT 2,0: IF Z=195 THEN LET P=10: Q=Q-1: GOTO 510 
00460 IF Z=197 THEN PLAY 10,2: P=50: G=l: GOTO 510 
O0470 FOR 1=1 TO 4: IF A(I)=E+D AND G=0 THEN NEXT* I 520 
004B0 IF A (I 1=E+D AND G>0 THEN NEXT* I 490 ELSE NEXT I: GOTO 510 
0049O P=10O: PLAY 15,2: A(I)=C(I): IF F(I,01=195 THEN LET Q=Q-1 
OO500 POKE A(II,202: POKE A(11+1,203: F(1,01=199: F<1,11=199 

00510 POKE E,32: POKE E+1,32: E=E+D: IF Q=0 THEN LET W=-l: G=0: C0=C0+.15: K=K-B 
00520 POKE E,193: POKE E+1,194: S=S+P: P=0 
00530 CURS 1,9: PRINT CI7 S3: RETURN 
00540 REM * * * MOVE MONSTERS * * * 

00550 IF G>0 THEN LET G=G+1 

00560 FOR 1=1 TO 4: IF RND>C0 THEN LET X=A(I1: GOTO 670 
00570 X=A(II-E: IF X>0 THEN LET D=-64 ELSE LET D=64 
O05B0 V1=FRACT<FLT(E1/641: Y1=FRACT(FLT <A(111/641 
00590 IF V1>Y1 THEN LET L=2 ELSE LET L=-2 
00600 IF RND>.6 THEN LET U=L: L=D: D=U 
00610 X=A(11+D: V=PEEK(XI: IF V<199 THEN 650 

0C620 X=A(I1+L: V=PEEK(X): IF V<199 THEN 650 

00630 X=A(I1-L: V=PEEK(X): IF V<199 THEN 650 

00640 X=A(11 —D: V=PEEK(X1: IF VM9B THEN LET X=A(I1: GOTO 670 

00650 IF G=0 AND V=193.THEN POKE A(I1,200: POKE A<I>+1,201: H=-l: NEXT* I 730 
O0660 IF G>0 AND V=193 THEN LET X=A(I1 

00670 0(11 =*A (II: A (11 =X: POKE O<I1,F(I,01: POKE O (11+1, F (1, 11 ' 

00680 F(1,01=PEEK(A(111: F <I,11“PEEK(A(11+11 

00690 IF G=0 THENPOKEA(I),200: POKEA(I1+1,201 ELSEPOKEA<I1,202: POKEA<I1+1,203 
00700 NEXT I 

00710 IF G>K THEN PLAY 24 

00720 IF G>K+5 THEN LET G=0: PLAY 18;22 

00730 RETURN 

00740 REM * * * MAN HAS BEEN CHOMPED * * * 

00750 CURS 32,1: PRINT "CHOMP'": PLAY 4;8: IF T=3 THEN 790 
00760 FOR 1=0 TO 800: NEXT I: POKE E,32: POKE E+1,32: T=T+1: H=0 
00770 CURS 32,1: PRINT CA6 323: GOSUB 210: GOTO 180 
00780 REM * * * END * * * 

00790 PLAY 4;4;8: FOR 1=0 TO 800: NEXT I 

00800 CLS: CURS 22,7: PRINT "YOU SCORED ";S;" POINTS'" 

00810 CURS 25,9: PRINT "ANOTHER GO (Y/N)'?" 

00820 POKE 257,1: X1*=KEY*: IF Xl*="“ THEN 820 
00830 IF Xl<< >"Y" AND X1*<>"N" THEN 820 
00840 IF X1*="Y" THEN LET C0=.4: K=35: GOTO 170 
00850 CLS: POKE 220,111: END 

00860 DATA 0,7,24,32,64,76,133,129,131,128,72,71,32,24,7,0 
00870 DATA 0,224,24,4,2,50,161,129,193,1,18,226,4,24,224,0 
DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,128,128,0,0,0,0,0,0,0 
00900 DATA 0,0,0,0,1,3,7,15,15,7,3,1,0,0,0,0 
00910 DATA 0,0,0,0,128,192,224,240,240,224,192,128,0,0,0,0 
00920 DATA 170,85,170,85,170,85,170,85,170,85,170,85,170,85,170,85 
00930 DATA 0,7,15,31,29,57,63,63,53,58,63,63,127,127,255,0 
00940 DATA 0,224,240,248,184,156,252,252,172,92,252,252,254,254,255,0 
00950 DATA 0,7,8,16,18,38,32,32,40,39,32,32,64,64,170,0 
00960 DATA 0,224,16,8,72,100,4,4,20,228,4,4,2,2,170,0 
00970 DATA 0,0,0,0,0,8,28,42,73,8,8,8,0,0,0,0 
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NOUGHTS & CROSSES 


The program is based on a 
series of 3 grids. The first grid 
is Player One, the second is 
Player Two and the final one is 
the overall status. For these I 
used the variables Q, C and A 
respectively. 


Firstly, the two players are 
asked for their names and the 
game continues as a normal 
game of ‘TIC-TAC-TOE’. 

The program runs from line 
1001 which branches to sub- 


00002 POKE 220,20: POKE 140,1 
00005 LORES 

00008 REM ■*** WRITTEN BY ROBER:T BOYCE ON 26/3,'83 **+ 

00010 CLS: SPEED 1 00:UNDERLINE* CURS20,8: PRINTCHR< 7) "NOUGHTS AND C:ROSSES "CHR (7) s NUR 
MALsSPEEDO 

00015 CURS 18, 11 SPRINT "Writte-n by ROBERT BOYt:E for the Microbe*" 

00020 GOSUB 500 

00025 CLSJDIM A(2,2)sDIM Q(2,2:):DIM C<2,2> 

00050 CURS 2,8sF’RINTCHR (7) ? "GET READY TO CHALLENGE YOUR FRIEND AT A GAME OF TIC> 
TAC-TOE"sFOR X«1 TO 500:NEXTX: POKE 220,15 
00051 CURS 10, 10s INPUT "PLAYER 1*S NAME :"S01* 

00052 IF 01**"" THEN GOTO 51 

00053 CURS 10, 1 is INPUT "PLAYER: 2'S NAME: »;LI*:: IF LI*-"" THEN GOTO 53 
00055 CLSsGOSUB 550 
00062 CLS 

00065 REM *** PLAYING A FRIEND* *** 

00066 LORES 

00070 FOR S=0 TO 12l:SET S, 33: NEXTSs FOR S-0 TO 121: SET S, 19: N EXTS: FOR D=47 TO 5 
STEP -1: SET 40, D*: NEXTD: FOR D- 4*.' TO 5 STEP -1:SET 61, D» NEXTD 
00074 CURS 1,1 5:PRINT " 

00075 CURS 6,15:PRINT CHR (7) 5 : PRINT "WHICH QUADRANT PLAYER 1 ("?01*1 INPLIT E 

1 *s IF El**"" THEiN GOTO 75 

00076 E1=VAL (El*): P*74s IF E1<1 OR El >9 THEN GOTO 74 
00080 GOSUB 1000 
00090 REM **** CROSSES *%** 

00092 W-INT (XI) sX*INT(X2) : Y-INT (Y1) s Z*INT(Y2) 

00095 PLOT W,Y TO X,Z:PLOT X,Y - TO W,Z 
00098 IF 1=9 THEN GOTO 2000 
00100 IF R4=2 THEN RETURN 
00130 CURS 1,115: PRINT " 

00132 CURS 6, 15: PRINT CHR (7) ; s PRINT "WHICH QUADRANT PLAYER 2 ( " ? Ll *5 ") s " 5 : INPLIT E 

1 

00134 P=130sIF El<1 OR El>9 THEN GOTO 130 
00136 GOSUB 100*0 
00140 REM *** NOUGHTS *** 

00142 W=INT(X1):X=INT(X2):Y=INT(Y1):Z«INT(Y2) ’ , 

00145 PLOT W,Y TO W,Z:PLOT W,Y’ TO X,Y:PLOT X,V TO X,Z:PLOT W, Z TO X,Z 
00146 IF 1*9 THf*N GOTO 2000 
00148 IF T4=2 THEN RETURN 
00150 GOTO 74 
00499END 

00500 CURS 30, 16:PRINT " .. PR:ESS ANY KEY 
•00510 IF KEY*"" THEN 510 
00520 RETURN 

00550 CURS 12, 18PRINT "... RUL.ES ..." 

00555 PRINTsPRINT "THE BOARD IS SET UP AS NORMAL INTO THE "SPRINT "NINE QUADR:AnT 
S NUMBERED LIKE SO 

00560 PRINTsPRINT "1.2. 3"sPRINT "."SPRINT "4.5 

6" SPRINT "."SPRINT "7.8. 9" 

00565 PRINTSPRINT "THE PLAYER GOING FIRST IS ALWAYS "CROSSES* " 

00570 GOSUB 500:: RETURN 
01000 REM 

01001 J-INT (El > s ON J GOTO 101C*, 1020, 1030,1040:-1050, 1060, 1070, 1080,1090 
01010 XI =3: X2=30s Y1 *45: Y2-35: IF A(0,0>-1 THEN E«OTO P 
01011 IF P=130 THEN 1*013 
01012 Q (0,0) =1 GOTO 1014 
01013 C(0,0)*1 
01014 GOSUB 4000 
01015 A(0»0)*1 sGOTO 1200 

01020 XI*43: X2 *78:Yl-45:Y2-35: IF A(0,l>-1 THEN GOTO P 
01021 IF P-130 THEN 1023 
01022 Q(0,1)=1 s GOTO 1024 
01023 C(0,1)*1 
01024 GOSUB 4000 
01025 A (0, 1) *1:: GOTO 1200 

01030 XI -84: X2 *119s Yl-45* Y2-35** IF A(0,2)-l THIiN GOTO P 



routines from the quadrant No. 
and then checks to see who the 
winner is or whether the game 
is a draw. The program is self- 
explanatory. 

Robert Boyce 
Mulgrave VIC 

01031 IF P»130 THEN 1033 
01032 0(0,21=1 s GOTO 1034 
01033 C(Of 2)*1 
01034 BOSUB 4000 
01035 A (0> 2) *1!! GOTO 1200 
01040 Xl=3sX2=38:Yl»3lsY2=21: I F A <1,01=1 THEN GOTO P 
01041 IF P* 130 THEN 1043 
01042 Q(1f 0)*1 < GOTO 1044 
01043* C<1,01=1 
01044 BOSUB 4000 
01045 A (1,01 =1:: GOTO 1200 

01050 Xl=43sX2=78sYl=31:Y2=21: IF A<1,11=1 THEN GOTO P 
01051 IF P=130 THEN 1053 
01052 Q <1»1)=1sGOTO 1054 
01053 C(l,ll=l 
01054 GOSUB 4000 
01055 A (1 f 1) *1!! GOTO 1200 

01060 Xl=84sX2=119sYl«3HY2=21 : IF A<1,21=1 THEiN GOTO P 
01061 IF P=130 THEN 1063 
01062 0(1,21=1SGOTO 1064 
01063 C(1f 2)=1 
01064 GOSUB 4000 
01065 A (1» 2) = 1:: GOTO 1200 

01070 Xl»3:X2=38*Yl = 17t Y2=7: IF A(2,01=1THEN GCDTO P 
01071 IF P=130 THEN 1073 
01072 0(2,01=1SGOTO 1074 
01073 C(2f 0)*1 
01074 GOSUB 4000 
01075 A (2» 0) =1 i: GOTO 1200 

01080 X1 *43s X2 =78s Y1 = 17 s Y2=7s I F A<2,11=1 THEN GOTO P 
01081 IF P=130 THEN 1083 
01082 Q(2f1)=1SGOTO 1084 
01083 C <2»1> =1 
01084 GOSUB 4000 
01085 A(2f11=1”GOTO 1200 

01090 Xl=84:X2=119sYl=17:Y2=7: IF A(2,2>=1 THEiN GOTO P 
01091 IF P=130 THEN 1093 
01092 0(2,21=1sGOTO 1094 
01093 C(2,2>=1 
01094 GOSUB 4000 
01095 A(2,21=1S GOTO 1200 
01200 1 = 1 + 1 s RE TURN 
02000 FOR X=1 TO 1000 s NEXTX: CLE 3 
02010 FOR X=1 TO 10sF=INT <RND* ! 241 SPLAY Ff 1 s NEXTX 
03000 CURS 16,7 SPRINT "** THE GiAME WAS ADRAW #>*- 
03010 CURS 20, 8s INPUT "PLAY AGiAIN (Y/N)"»F1* 

03020 IF F1*(S1,1)="Y" THEN RUN 
03030 CLSs END 

04000 IF Q (0,0 ) =1 AND Q(1,0)=1 AND 0(2,01=1 THEN GOTO 5000 
04010 IF Q(0, 1) =1 AND Q(l,l) = l AND 0(2,11=1 THEiN GOTO 5000 
04020 IF Q (0,2 ) =1 AND 0(1,21=1 AND Q(2,2)=l THEN GOTO 5000 
04030 IF Q (0,0) =1 AND (3(0,11=1 AND 0(0,21=1 THEiN GOTO 5000 
04040 IF Q(1,01=1 AND 0(1,11=1 AND 0(1,21=1 THEN GOTO 5000 
04050 IF 0(2,01=1 AND 0(2,11=1 AND 0(2,21=1 THEiN GOTO 5000 
04060 IF 0(0,0 1=1 AND 0(1,11=1 AND 0(2,21=1 THEN GOTO 5000 
04070 IF 0(0,21*1 AND 0(1,11=1 AND 0(2,01=1 THEiN GOTO 5000 
04100 IF C (0,0 1=1 AND C( 1,01 = 1 AND C (2,01=1 THEN GOTO 7000 
04110 IF C(0,11=1 AND C(1,11=1 AND C(2,11=1 THEiN GOTO 7000 
04120 IF C (0,2 1=1 AND C( 1,21=1 AND C (2,21=1 THEN GOTO 7000 
04130 IF C(0,01 *1 AND C(0,11=1 AND C(0,2!=l THEiN GOTO 7000 
04140 IF C(1,01=1 AND C(1,11=1 AND C(1,21=1 THEN GOTO 7000 
04150 IF C(2,0) =1 AND C(2,l! = l AND C(2,2!*l THEiN GOTO 7000 
04160 IF C(0,01=1 AND C(1,11=1 AND C(2,21=1 THEN GOTO 7000 
04170 IF C(0,21=1 AND C(1,11=1 AND C(2,01=1 THEiN GOTO 7000 
04300 RETURN 

05000 R4=2: GOSUB 92* FOR X=1 TCi 1000s NEXTX: CLS:: REM *** PLAYER 1 WON *** 

05005 FOR X=1 TO 20s F=INT <RND*2'l) s PLAY F, 1: NEXT X: CURS 20,7:PRIMT "PLAYER ** 1 >** 

"J s UNDERLINE SPRINT "WON" s NOR :MAL sGOTO 3010 
07000 T4=2» G0SUE3 142SF0R X=1 TO 1000: NEXTX: CLS: REM *++ PLAYER '.l WON *** 

07005 FOR X=1 TO 20SF-INT <RND* : 24! sPLAY F, 1: NEXTX: CURS 20, 7: PR I NT "PLAYER ** 2: ++ 
" »s UNDERLINE s F *R I NT " WON " s NORM/ M_: GOTO 3010 





Pattern draws patterns on the 
screen depending on the values 
you type in, and some nice FX 
can be created. 


Richard Larkin 
Dee Why NSW 


NOVE 


Novel is a program that was 
written just for fun. Run the pro¬ 
gram and it will create a story 
from the yes/no questions you 
ask it. If the ‘Bee decides the 
answer is ‘NO’ then the com¬ 
puter does nothing. If the 
answer is ‘YES’ then the ques¬ 
tion is changed in syntax to be¬ 
come the answer. The answer 
is then stored as part of a string 
array. To display the story, 
enter ‘print’ to the question 
input. 

The program is a good 
demonstration of the Microbee’s 
string handling abilities. The 
major part of it is dedicated to 
producing syntactically correct 
sentences. It isn’t exactly per¬ 
fect, but then I never was very 
good at English. There are a 


few funny results produced and 
I’ll leave it to the English de¬ 
viated.. .ummm, orientated, to 
correct the program to process 
these little gloops. 

The program waits for a 
question to be input. It then 
checks for a question mark at 
the end of the question. If that 
is correct, a check is made of 
the verb that sits at the begin¬ 
ning of the question. The list of 
verbs checked is from line 200 
to 300. The list of verbs can be 
expanded on, just follow the for¬ 
mat. Example: 

200 A = SEARCH(AO$,“ls”):IF 
A=1 THEN LET 

AO$(;4):GOSUB “is” 420: 
GOTO 310 

The string ‘Is’ is sought for in 
the input string. If it is in the fist 


character of the string then 
“ls“ + a space is deleted from 
the string. That’s the LET 
AO$ = AO$(;4). The GOSUB 
(‘is’)420 jumps to the routine to 
insert the verb back into the 
string AO$ at the correct place 
so the question becomes a 
statement. 

Lines 320 to 410 do the punc¬ 
tuation, set the first letter of the 
string to capital, decide whether 
the answer to the question is 
yea or nay and if yea then stick 
it at the end of an array string. 

The last three lines of the 
program insert the verb in the 
correct place. 


Jon Barnett 
Northmead NSW 


00100 REM **Novel** 

00110 CLS: STRSf 20000 KS=0:L=0: HIM A2(300) 

00120 A2$( 0 )="" 

00130 PRINT"AsK Yes or No Questions to create a stofs," 

00140 INPUT"Uhst is the Question?" 5 A0$:B=INT< RND#FL_T( LEW A0$ ) HI KA3$=A0$( ih>h) 

00150 A=SEARCH< A0$* "print" ) I IF AOO THEN 410 

00160 A=SEARCH< A0$* "PRINT" KIF AOO THEN 410 

00170 A1$=A0$( ? 1 ♦ 1 KIF Al$=" " THEN LET AO*=AO$( i 2 )JGOTO 170 

00180 B=SEARCH( A0$.»" ? " )1 IF B=0 THEN CLS l PRINT" That wasn't 3 Question ." IGQT0 140 

00190 A0$=A0$( rlrFO 

00200 A=SEARCH( A0$r"Is" )t IF A=1 THEN LET A0$=A0*( 54 )JGOSUB C" is"] 420JGOTO 310 
002.10 A= : SEARCH( A0$ >" Does" ): IF A=1 THEN LET A0$=A0$< i 6 ) tGOSUB L " does"] 4201 GOTO 310 

00220 A=SEARCH( A0$» "Was" > t IF A=1 THEN LET A0$=A0$( ?5 ) l GOSUB II" was" 3 420JG0T0 310 

00230 A= : SEARCH( A0$»" Has" KIF A=t THEN LET A0$~A0$< 55 > 1 GOSUB II" has"] 420JG0T0 310 

00240 A--SEARCH( A0$r" Are" )t IF A=1 THEN LET A0$--A0$( 55 ) J GOSUB C" are"] 420JGQT0 310 

00250 A=SE ARCH( A0$ *" U 1 .1.1." ) 11F A=1 THEN LET A0$=A0$( ; 6 ) tGOSUB l " will"] 420 J GOTO 310 
00255 A=SEARCH( AOWDon' t" ) t IF A=1 THEN LET A0$=A0$< > 7 KGOSUB C" don't" 3 420JGOTO 3.10 

00256 A~SEARCH( AO'fcr "Won 7 t" ) t IF A=1 THEN LET A0$=A0$< ?7):G0SUB C" won't"] 420:GOT0 310 

00260 A=SEARCH( A0$ ? "Have" ) tIF A=1 THEN LET AO$=A0$( ;6 ) JGOSUB C" have"] 420JGOTO 310 
00270 A=SEARCH( A0$» "Can" ) J IF A=1 THEN LET A0$==A0$( 5 5 ) tGOSUB C" can"] 420JG0T0 310 
00230 A=SEARCH( A0$» "Do" )t IF A=1 THEN LET A0$-=A0$( J4 ) I GOSUB C"" 3 420JG0TG 310 
00290 A=SEARCH( A0$» "Could" )tIF A=1 THEN LET A0$=A0$( > 7 ) JG0SUB C " cou.ld"] 420JGOTO 310 

00300 A=SEARCH( A0$» "Might" )tIF A=1 THEN LET A0$ = A0*< >7 KG0SUB 1." might" 3 4205GOT0 310 

00310 IF A<>1 THEN 140 

00320 D=INT(RND*4 )tIF D=1 THEN LET Al$=" !" ELSE LET Al$=" *" 





00100REM FX 


00110REM By Richard Larkin 

00120REM This pros raw is for creation of patterns on screen! 


00130 CLEAR s CLS s PRINT///"Welcome to FX. The purpose of this program is to dr 
aw Patterns on the screen. AiI you have to do is choose a Pattern type" 


00140 PRINT"(1 TO 4), then type in 5 X-stePS and 5 Y-stePS. 


00150 PRINT"I will then draw on the screen usins your data."/"Type <S> to turn m 
ovement on and off."/"Type <E> to end pattern and restart."/"Type <C> to turn on 
e frame MOD on and off. " 


001E0 PRINT"Any other key will stop and start Pattern formation."/"Any key to co 
ntinue...." : I=USR(32774> 

00170 PQKE220, 0 : DIM XC4),YC4> 

001S0 CLS s PRINT///"PATTERN Cl TO 4)" 

00190 W-= I NT (VAL C KEY) ) : IF W<1 THEN 190 

00200 PLAY10 : C1$= ,,H : Sl*="" : CLS s PRINT//" TYPE IN YOUR NUMBERS Cl TO 9)"/ 
" X • X X X X Y Y Y Y Y" 

00210 FOR Z=0TO4 


00220 Q= I NT C VAL C KEY)) s IF Q<1 THEN 220 ELSE LET XCZ)=Q : PRINT TABC Z*3+2)Q? : P 

LAY10 2 NEXT Z 

00230 FOR Z= : 0TO4 

00240 Q=INT(VAL(KEY)) : IF Q<1 THEN 240 ELBE LET YCZ)=Q s PRINT TABCZ*3+1S)Q? s 
PLAY10 s NEXT Z 


00250 POKE220, S3 : PRINT/" Any key to start_" : I=USRC32774) s CLS : LO 

RES = CURS1000 s A~0 : C=0 : U=0 

002E0 IF C1*=="C M THEN CLS s CURS 950 

f+00270 ON W GOTO 390,4007 410,420 

002S0 C-C+X(A) s U-U+YCA) 2 A=A+1 : IF A=5 THEN LET A-0 

00290 IF 0 127 THEN LET C=C-128 

00300 IF U> 47 THEM LET U=U-4S 

00310 IF S1*="S" THEN PRINT 

00320 P0KE257,1 : K1$=KEY : IF Kl*="" THEN 2E0 
00330 IF K1*="E" THEN 130 

00340 IF Kl$ <>"C" THEN 360 ELSE IF C1*="C" THEN LET C1*= M " ELSE LET C1$="C" 

00350 GOTO 260 

00360 IF K1*<>"S" THEN 360 ELSE IF S1$="S" THEN LET Sl*="" ELSE LET S1*="S" 

00370 GOTO 260 

00380 IF KEY="" THEN 360 ELSE 260 

00390 PLOTI C,U TO C,47-U TO 127-C,47-U TO 127-C, U TO C, U : GOTO 280 

00400 PLOTI C,U TO 127-C,47-U s PLOTI C,47-U TO 127-C,U : GOTO 280 

00410 PLOTI C,U TO 127-C,U TO C,47-U TO 127-C, 47-U TO C,U : GOTO 280 

00420 H=C47-U*2)/4 s B=C127-C*2)/4 s PLOTI C,U TO 64,U+H TO 127-C,U TO 127-C-B,2 
3 TO 127-C,47-U TO 64,47-U-H TO C,47-U TO C+B, 23 TO C,U s GOTO 280 


PCS CHARACTER DESIGNER 


This program is an expansion of 
the PCG Character designer 
which appeared in Your Com¬ 
puter some months ago. 

Using that program, and find¬ 
ing the need for designing more 
than 1 character, I wrote this 
program to allow 3 characters 
to be designed at once, as well 
as adding some other features. 

Because of the lack of space 
on the screen once the 3 - 
character grid has been drawn 
up, only one set of data can be 
put down the left side of the 
screen at a time, however this 
is not really seen as a problem. 

One special addition to the 
program is a “Drawing” mode, 
activated by the letter “D”. This 
automatically toggles the point 
when you move the cursor, 
making it easier to fill in large 
areas of the character(s). You 
can exit the drawing mode by 
pressing “D” again. 

The control keys are as fol¬ 
lows: 

ESC: Move cursor up 
TAB: Move cursor down 
[: Move cursor left 
j: Move cursor right 
SPC: Toggle point 
R: Reset all data 
F: Set all data 
I: Invert all data 
H: home cursor 
1,2,3: Print data for each 
character 

SHFT + 1,2,3: Input data for 
each character 
D: Toggles in or out of 
drawing mode (Shown by a “D” 
at top of screen) 


Peter Frankenburg 
Howlong NSW 


10 REM **************************** 

20 REM ** PCG Character Designer ** 

30 REM ** by: Peter Frankenberg. ** 

40 REM ** Ph: (060) - 26 5356 ** 

50 REM **************************** 

60 REM 

100 P=64528: Poke 257,2 

110 FOR X=P TO P+95: Read Y: Poke X,Y: Next X 

120 For X=X+1 to X+48: Poke X,0: Next X 

130- For X=X+1 to X+32: Read Y: Poke X,Y: Next X 

140 Goto 400 

200 Rem ** Square 

210 Data 0,127,64,64,64,64,64,64 

220 Data 64,64,64,64,64,64,127,0 

230 Data 0,254,2,2,2,2,2,2 

240 Data 2,2,2,2,2,2,254,0 

250 Rem ** Cross 

260 Data 255,129,129,129,129,129,129,255 
270 Data 255,129,129,129,129,129,129,255 
280 Data 255,129,129,129,129,129,129,255 
290 Data 255,129,129,129,129,129,129,255 
300 Rem ** Inverse Cross 
310 Data 255,254,254,254,254,254,254,128 
320 Data 128,254,254,254,254,254,254,255 
330 Data 255,127,127,127,127,127,127,1 
340 Data 1,127,127,127,127,127,127,255 
350 Rem ** Inverse Square 
360 Data 0,127,127,127,127,127,127,127 
370 Data 127,127,127,127,127,127,127,0 
380 Data 0,254,254,254,254,254,254,254 
390 Data 254,254,254,254,254,254,254,0 
395 Data 128,64.32,16,8,4,2,1 
400 Dim A(24,16), B(8) 

500 Cls: Peg: For X=1 to 16: For Y=16 to 62 Step 2: Curs Y,X 

510 Print "AB";: Next Y: Next X 

520 C=1: R=1: Curs 12,16: Print "GHI"; 

550 For X=1 to 8: Read B(X): Next X 
600 A0$=Key: If A0$="" Then 600 

610 If A0$= M C": Gosub C-1,03 1000; If D=1: A0$=" " 

620 If A0$="3": Gosub Cl ,253 1000: If D=1: A0$=" " 

630 If A0S=Chr(27): Gosub C-1»P3 1100: If D=1 : A0$=" " 

640 If A0$=Chr(9): Gosub Cl,173 1100: If D=1: A0t=" " 

650 If A0«=" Gosub 1200 

660 If A0*="F": Gosub C13 1300 

670 If A0S="H": Gosub 2000: R=1 : C=1 

680 If A0S= ,, R": Gosub C03 1300 

690 If A0S>"0" And A0$<"4": V=Int(Val(A0$))-1: Gosub CV3 1400 
700 If A0$>" " And A0S<"$": V=Asc(A0$)-32: Gosub CV3 1700 
710 If A0$="I": Gosub 1800 

720 If A0$="D": Gosub 1900 

990 Gosub 2020: Goto 600 

995 Rem ** Move Cursor left A Right 
1000 Var (X,Y): Gosub 2000: C=C+X: If C=Y: C=C-X 
1010 Gosub 2020: Return 
1095 Rem ** Move Cursor up & Down 
1100 Var (X,Y): Gosub 2000: R=R+X: If R=Y: R=R-X 
1110 Gosub 2020: Return 
1195 Rem'** Toggle Point 

1200 If A(C,R)=0: A(C,R)=1 Else Let A(C,R)=0 

1210 Gosub 2020: Gosub 1500: Return 

1295 Rem ** Fill with Inverse Squares 

1300 Var (X): For R=1 to 16: For C=1 to 24: A(C,R)=X 

1310 Gosub 2000: Next C: Next R: C=1: R=1: Gosub CXI 1600: Return 

1395 Rem ** Print Data 

1400 Var (V): Normal: For Y=1 to 16: V=0: Z=128 
1410 For X=V*8+1 to W*8+8: If A(X,Y)=1:V=V+Z 
1420 Z=Z/2: Next X: Curs 1,Y: Print W+1 ">" CI4 V3; 

1430 Next Y: Return 
1495 Rem ** Updates PCG Character 

1500 If C>8 And C<17: P=64640: X=C-8 Else If C>16: P=64656: 

X=C-16 Else Let P*=64624: X=C 
1510 X=B(X): P=P+R-1 : If A(C,R)=0: Poke P,Peek(P)-X Else 
Poke P,Peek(P)+X 
1520 Return 

1595 Rem ** Update PCG after Fill or Reset 
1600 Var (Y): P=64624: If Y=1: Y=255 
1610 For X=P to P+47: Poke X,Y: Next X: Return 
1695 Rem ** Input Data 

1700 Var (W): Normal: P=64624+(V-1)*16: For V=1 to 16: R=V 
1710 Curs 1,V: Print W "> Curs 4,V:Input "" X; 

1720 For Y-1 to 8: C=(V-1)*8+y 

1730 Z=(X And B(Y)): If Z=B(Y): A(C,R)=1 Else Let A(C,R)«0 
1740 Gosub 2000:Next Y:Poke P,X: P=P+1 : Next V: C=1 : R=1: 

Return 

1795 Rem ** Invert Squares 

1800 For R=1 to 16: For C=1 to 24 

1810 If A(C,R)=1: A(C,R)=0 Else Let A(C,R)=1 

1820 Gosub 2000: Next C: Next R: C*=1 : R=1 

1830 For X=64624 to 64671 : Poke X,255-Peek(X): Next X: Return 
1895 Rem ** Draw Mode 

1900 Normal: If D=1: D=0: Curs 12: Print " Else Curs 12: 

Print "D";: D=1 
1910 Return 

2000 Peg: Curs C*2+14,R: If A(C,R)=0: Print M AB": Else 
Print "JK"; 

2010 Normal: Return 

2020 Peg: Curs C*2+14,R: If A(C,R)=0: Print "CD"; Else 
Print "EF"; 

2050 Normal: Return 




This is a simple “Snake“-line 
game in Lores graphics for one 
person. 

The object is to control a 
worm eating all the flashing 
frogs which appear on the 
screen. (Don’t ask how the 
worm eats frogs, it just does!) 

The only trouble is that if you 
crash into the wall, or yourself 
you are no longer alive. 

You get points for just staying 
around, but more points for eat¬ 
ing frogs. Eating frogs, how¬ 
ever, causes you to grow, mak¬ 
ing the game more difficult. 

The control keys for the game 


are: 

ESC:Up 

TAB: Down 
[: LEFT 
]: RIGHT 

At the beginning of the game, 
the program asks for speed. 
This is just a number from 0- 
255 giving the speed of the 
game. 

One line has been omitted, 
and should be added to enable 
the high score function. 

190 POKE 62475,0 : POKE 
62477,0 : DELETE 190 


Peter Frankenburg 
Howlong NSW 


*** WORM *** 

*** By: Peter Frankenberg *** 
Ph: (060) - 26 5356 *** 


t** 


mimmmmmutmtmi 


OOOOl REM 
00110 REM 
00120 REM 
00130 REM 
00140 REM 
00150 REM 
00160 REM 
00170 DIM D(5000) 

00175 CLSsCURS 530:GOTO 500 
00180 CLS:LORES 

00200 PLOT 0,0 TO 0,47 TO 100,47 TO 100,0 TO 0,0 

00210 W=10: X=20: Y=10: Z = 10: A=Oi B=1sF=1:E=11: N=1:S1=0: 0=0: P=0 

00220 M=PEEK(62475)+100*PEEK(62477) 

00230 PLOT W,X TO Y,Z:FOR H=1 TO 11:D(H)=10:NEXT H 
00240 J=2:K=2:GOSUB 530 

00250 CURS 54: PR I NT "W O R M":CURS 54,2: PR I NT" ===*=■===»=== " 

00260 E=E+1:A1*=KEY:N=-N:P=P+1 
00270 IF P>150:GOSUB 530 

00280 IF E>4999:CLS:CURS 520:PRINT"C ONGRATULAT I ONS !":GOTO 470 
00290 S1=S1+.03:IF N=-1:RESET J,K ELSE SET J,K 
00300 SPEED 0:CURS 53,4SPRINT"SCORE*”INT(SI) 

00310 CURS 54,6:PRINT"HIGH":CURS 53,7:PRINT"SCORE:”M:CURS 52,9:PRINT"GROWTH:"G" 

" ; : SPEED* Q:CURS 53, 16: PRINT” SPEED 0 

00312 CURS 52,11:PRINT"LENGTH:"E-F:CURS 52,13:PRINT”WORM:"W","X" "::CURS 52.14:P 
RINT"FROG:"J","K" 

00326 IF A1*=CHR(27):B=1:A=0 
00330 IF A1*=CHR(9):B=-11 A=0 
00340 IF A1*="C":A=-1:B=0 
00350 IF Al*="A=1:B=0 
00360 D(E)=B*10+A:W=W+A:X=X+B 

00370 IF W=J AND X=K:G=G+INT(RND*70)+30:GOSUB 530:Sl=Sl+20 

00380 IF POINT(W,X)THEN 460 

00390 SET W,X:IF G>OfG=G-1:GOTO 450 

00400 F=F+1:RESET Y,Z 

00410 IF D(F)=10:Z=Z+1 

00420 IF D(F)«-10:Z-Z-l 

00430 IF D(F)=1:Y=Y+1 

00440 IF D(F)=-1:Y-Y-l 

00450 GOTO 260 

00460 SPEED 0:CURS 530:PRINT"C RASH !":PLAY 1,10 

00470 IF SI>FLT <M):CURS 580:PRINT"*** NEW HIGH SCORE ***":PLAY 20,10 ELSE 500 
00480 M1*=STR <INT(SI)):POKE 62475,INT(VAL(Ml(;LEN(Ml*)-1>)> 

00490 IF LEN(Ml*)>3:POKE 62477,INT(VAL(Ml*(;1,LEN(Ml*)-2))) ELSE POKE 62477,0 

00500 INPUT”Speed?"Z7*:IFZ7*=""THEN180 

00510 Q=INT(VAL(Z7*)>:IF Q<0 OR Q>255 THEN 500 

00520 GOTO 180 

00530 P=0:RESET J,K 

00540 J=INT(RND*90)+5:K=INT(RND*40)+4:IF POINT(J,K)THEN 540 
00550 SET J,K:RETURN 



microbee 


SLOT MACHINE 


You are in the midst of a 
packed casino with a ‘one-arm 
bandit’ in front of you; its 
jackpot steadily mounting. You 
insert the coin, your last one, 
and pull back on the handle 
(you really hit the / key but that 
spoils the fun!) and watch the 
shapes revolve. You hit the 
jackpot! Beauty! Shall you quit 
while you’re ahead or go on 
gambling at the risk of going 
broke! 

Some breath-taking sound ef¬ 
fects and interesting characters 
add to the fun of this program 
which can become quite addic¬ 
tive. 

Some points to note: 

* The characters do not actu¬ 
ally revolve - they just appear 
to do so. 


* If you want a greater chal¬ 
lenge then just increase the 
number of characters that ap¬ 
pear in the game by altering 
lines 370, 420, 470, 540 and so 
on. 

* You can also alter these 
lines to change the characters 
that appear by altering lines 
370, 420, 470, 540 and so on. 

* You can also alter these 
lines to change the characters 
that appear, if you find the ones 
I’ve chosen undesirable. To see 
the range of characters avail¬ 
able, punch in: FOR X = 0 TO 
127:POKE 61440 + (X* 
2),X:NEXT X:END 

Anthony Lock 
Mitcham VIC 


00100 REM *** SLOT MACHINE *** 

00105 REM by Anthony WillUm Lock 

00110 CLS'CURS 13*6'PRINT"How to Pl*s slot machint..." 

00120 CURS 16*7‘PRINT"It costs 20c** turn 

00130 CURS 12*8 : PRINT"to insert coin* hit the / key" 

00140 CURS 12*10'PRINT" To win you must match three" 

00150 CURS 12*11‘PRINT" objects in a horizontal row" 

00160 CURS 12*12‘PRINT" To start* Press the S key" 

00170 CURS 12*13•PRINT" To end* Press the E key" 

00180 A1*«KEY* 

00190 IF AH="S" THEN 210 
00200 GOTO 180 
00210 CLS 
00220 M1-2-J1-5 

00230 CURS 17*l*UNDERLINE‘PRINT"*** SLOT MACHINE ***" 
00240 CURS 20*3‘PRINT"MONEY - *"*M1*"0" 

00250 CURS 19*4‘PRINT"JACKPOT - Jl*"0"‘NORMAL 
00260 CURS 13*9‘PRINT"I AM READY TO ACCEPT COINS..." 

00270 B1*»KEY* 

00280 IF B1*="/"THEN 310 
00290 IF B1*="E"THEN 970 
00300 GOTO 270 

00310 CLS‘CURS 17*1‘UNDERLINE‘PRINT"*** SLOT MACHINE ***" 

00320 IF Ml<.2 THEN 950 

00330 Ml*Ml-.2‘Jl=Jl+.2 

00340 CURS 20*3 ‘PRINT"MONEY - r , ;Mi"0" 

00350 CURS 19*4‘PRINT"JACKPOT - $"*Jl*"0"‘NORMAL 
00360 R=0 

00370 A=INT<RND*6 >+5 *B*INT<RND*6)+5‘C*INT(RND*6)+5 
00380 POKE 61974*A‘POKE 61978*B=POKE 61982*C 
00390 R=R+1 

00400 IF R*10 THEN 420 
00410 GOTO 370 

00420 B=INT<RND*6)+5‘C-INT<RND*6>+5 


MASTERMMD 


This game, written for the 
Microbee, is much the same as 
it’s namesake. This version you 
can play by yourself or against 
a friend. 

I will now issue a plea to any¬ 
one who can write a subroutine 
or program, in which the com¬ 
puter tries to guess the code, 
and send it in to this magazine. 
I’m afraid the maths is a bit 
beyond me! (OK, Hackers the 
race is on. If no-one comes up 
with one HI publish an algorithm 
in a couple of months. EM.) 

This program is very flexible 
for changing and converting to 
other computers. This is be¬ 
cause it is only from line 350 to 


line 900 that the most important 
information is processed. To 
convert therefore, is mainly a 
matter of changing variables 
and designing your screen lay¬ 
out (see the screen dump). 

I recommend that you invent 
P.C.G characters to replace the 
plain looking letters. If you are 
the owner of that rare creature, 
the ColourBee, the use of col¬ 
ours for the code pegs would 
make this game visually much 
better. The game uses about 
5K.... GOOD LUCK! 

Greg Alcock, 
Oak Park, Vic 



00010 REM***MASTERMIND BY...*** 

00020 REM*** GREG ADCOCK *** 

00030 REM*** 20/1/1984 *** 

00040 REM*** FOR PUBLIC USE !*** 

00040 REM*** FOR PUBLIC USE !*** 

00100CLS 
00110POKE220,1 
00120DIMU1(4):W3=0 
00130 DIMG(4) 

00140 DIMA1(3):DIMU(3) 

00150GOTO940 
00160CLS 

00170 T1=0:J1=0:K=0 

00180 l= 0 :play 0 , 20 :cls 

00190 LORES 

00200 PLOT 30,45 TO 88,45 TO 88,0 TO30,0TO30,45 

00210 PLOT 30,0 TO0,0 TO 0,45 TO 30,45 

00220 PLOT 47,43 T064,43 

00230 PLOT 47,42 T064,42 

00240 PLOT 47,44T064,44 

00250 CURS46,1:PRINT"B=BLUE" 

00260 CURS46,3:PRINT"G=GREEN" 

00270 CURS46,5:PRINT"P=PURPLE" 

00280 CURS46,7: PRINT "R=RED" 

00290 CURS46,9:PRINT"W=WHITE“ 

00300 CURS46,11:PRINT"Y=YELLOW" 

00310 CURS46,12:PRINT"b1"CORRECT" 

00320 CURS46,13:PRINT"POSITION" 

00330 CURS46,14:PRINT"wh“CORRECT COLOR" 

00340 CURS46,15:PRINT"WRONG POSITION- 
00350 FORI=0TO3 

00360 P=INT <RND*8):IFP=0ORP=1ORP=8THEN360 

00370 IFP=2THENLETU(I)=82 

00380 IFP=3THENLETU(I)=66 

00390 IFP=4THENLETU(I)=71 

00400 IFP=5THENLETU(I)=87 

00410 IFP=6THENLETU(I)=89 

.00420 IFP=7THENLETU ( I ) =80 

00430 Ai*(I)=CHR(U(I)) 

00440 NEXTI 

00450 T=40:S=15 

00460 REM 

0.0470 T = 40: S=S-1 

0.0480 CURS 3,16 

00490L=L+1:IFL=11THEN900 

.00500 FORI=0TO4 

00510 G(I)=0:U1*(I)="“ 

.00520 NEXT I 

00530 FORI=1T04 

00540 CURS 50+T,S 

00550 K1*=KEY:IFK1*=""THEN550 

00560PRINT K1*J 

0057.0 IFK1 *= " R " ORK1 *= " B " ORK 1*= " G " ORK1*= " W " ORK1*= " Y 
"ORK1*="P"THEN580 ELSE540 
00580 U1*(I)=K1* 

00590 PLAY 12,2 
00600 T = T + 2 
00610 NEXTI 
00620 C=0:B=0 
00630FORI=0TO3 

00640 IFA1*(I)=U1*(I+1)THENLETB=B+1:G(I+1)=3+1 

00650NEXTI 

00660 F0RI=1T04 

00670 IFG <I) > 1THEN 840 

00680IFG(1)>1THEN 720 

00690 IFF1=1THEN720 

00700 IFI=1THEN720 


106 









00430 POKE 6197b,B=POKE 61982,C 
00440 R-R+l 

00430 IF R-20 THEN 470 
00460 GOTO 420 
00470 C-INT<RND*6>+3 
00480 POKE 61982,0 
00490 R-R+l 

00300 IF R-35 THEN 320 
00310 GOTO 470 
00320 R-0 : PLRY 0,4 

00340 D=INT<RND*6)+3=E*INT< RND#6)+3= F=INT< RND*6>+3 
00350 POKE 62038,0 : POKE 62042,E=POKE 62046,F 
00360 R-R+l 

00570 IF R-10 THEN 590 
00580 GOTO 540 

00390 E-INT<RND*6)+3*F=INT<RND*6 >+5 
00600 POKE 62042,E : POKE 62046,F 
00610 R-R+l 

00620 IF R-20 THEN 640 
00630 GOTO 590 
00640 F»INT<RND*6>+3 
00650 POKE 62046,F 
00660 R-R+l 

00670 IF R-33 THEN 690 
00680 GOTO 640 
00690 PLRY 0,4 : R-0 

00700 G-1NT<RND*6)+3=H-1NT<RND*6 >+3 =I»INT<RND*6)+3 
00710 POKE 62102,G«POKE 62106,H=POKE 62110,1 
00720 R-R+l 

00730 IF R-10 THEN 730 
00740 GOTO 700 

00730 H«INT<RND*6>+5=I-INT<RND*6>+5 
00760 POKE 62106,H : POKE 62110,1 
00770 R-R+l 


00780 IF R-20 THEN 800 
00790 GOTO 750 
00800 I=INT<RND*6>+3 
00810 POKE 62110,1 
00820 R-R+l 

00830 IF R-35 THEN 850 
00840 GOTO 800 

00850 PLRY 0,8=IF R=B AND B=C RND fl=C OR D=E AND E-F AND D-F OR G=H AND H=I AND 
G=I THEN 890 

00860 IF A-B RND B=C RND A=C AND D=E RND E=F RND D=F OR A=B RND B=C AND A=C AND 
G-H AND H-I AND G-I OR D=E AND E=F AND D-F AND G=H AND H=I AND G=I THEN 910 
00870 IF A=B AND B-C AND A=C AND D*E AND E=F AND D=F AND G=H RND H=I AND G=I THE 
N 930 

00880 PLAY 0,16=CLS'GOTO 230 

00890 CLS = CURS 20,9 = UNDERLINE = PRINT"CONGRATULATIONS!!"'NORMAL 
00900 M1-M1+J1=J1=5=G0T0 980 

00910 CLS=CURS 1,9'UNDERLINE'PRINT"CONGRATULATIONS! YOU HAVE HON THE DOUBLE-JACK 
POT!!!"'NORMAL 

00920 M1=M1+J1*2=J1-5 : G0T0 980 

00930 CLS=CURS 1,9'UNDERLINE'PRINT"CONGRATULATIONS! YOU HAVE WON THE TRIPLE-JACK 
POT!!!!"=NORMAL 

00940 M1=M1+J1#3 = Jl-f'GOTO 980 

00950 CLS= CURS 19,9 = UNDERLINE = PRINT" YOU ARE NOW BROKE! " NORMAL 
00960 FOR 2=4097 TO 4180L=USR<15000,Z)=NEXT 2 END 

00970 CLS=CURS 16,9'UNDERLINE'PRINT" YOU HAVE FINISHED WITH $";M1,"0 "NORMAL EN 
D 

00980 FOR X=4095 TO 3847 STEP -1 : L=USR<15000, X) NEXT X 
00990 PLAY 0,4=CLS'GOTO 230 



00710 IFA1*(0)=U1*<I)THENLETC=C+1:Fl=l:GOTO840 
00720 IFF2=1THEN760 
00730IFG(2)>1THEN 760 
00740 IFI=2THEN760 

00750 IFA1* <1 ) =U1* (I) THENLETOC + 1: F2«l: GOTO840 
00760IFF3=1THEN800 
00770 IFI=3THEN800 
00780 IFG(3)>1THEN800 

00790 IFA1*< 2)=U1*(I)THENLETC=C+1:F3-1:GOTO840 
008001FF4«1THEN840 
00810 IFG(4)>1THEN840 
00820 IFI-4 THEN840 

00830 IFA1* <3)«U1* (I) THENLETOC + 1: F4-1: GOTO840 
00840 NEXTI 

00830 Fi-0:F2«0:F3«0:F4=0 

00860 IFB*4THENGOSUB900 

00870 CURS3,S+l:PRINT"bl="?B?" wh*"|C 

00880 B-0:C-0 

00890 GOTO470 

00900 Q-0:FORI»0TO3:Q»Q+2:CURS 24+Q,2:PLAY I+1,3J0 

,i:printai*(I)i:nexti 

00910 IFW3-1:W3«2:GOTO1270 

00920 IFW3-2:W3«l:GOTO1340 

00930 GOTO1410 

00940 F0RI-1T016 

00930 PRINTCA63 191] 

00960 NEXTI 

00970 CURS 22,8:PRINT" MASTER MIND" 

00980 PLAY 161161201 23;01 20123,8 
00990 PLAY 0,16 
01000 CLS 

01010 CURS4,31 PRINT"DO YOU WISH INSTRUCTIONS ?"} 
01020 INPUT"(Y/N)"S3* 

01030 IFS3**"Y"0RS3*-" y "THEN2000 
01040 IFS3**"n"0RS3**"N"THEN1060 
01030 GOTO1010 

01060 CLS:CURS4j 4:PRINT"DO YOU WANT TO PLAY BY YOU 

RSELF('l’) ,OR AGAINST ANOTHER "\"PERSON('2*) ? "J 

01070 INPUTG5 

01080 IF G3“lTHEN180 

01090 IFG3-2 THEN1110 

01100 GOTO1060 

01110 CLS:CURS4,4:INPUT-PRINT THE NAME OF PLAYER 0 
NE..."Z3* 

01120 CURS4,3:INPUT-PRINT THE NAME OF PLAYER TWO.. 

. "Z4* 

01130 CURS4,6:PRINT"HOW MANY GAMES DO YOU EACH WIS 
H TO PLAY IN THIS CONTEST "{ 

01140 INPUTV 

01130 IFV<1THEN1130 

01160 W3=l 

01170 GOTO170 

01180 PLAY0,20:PRINTN\ 

01190 IFN<MTHEN1220 

01200 PRINTZ3*!" HAS WON! ! ! " 

01210 GOTO1230 

01220 PRINTZ4*!" HAS WON! ! ! " 

01230 PRINTN\\"DO YOU WISH TO PLAY AGAIN ?(Y/N)"{ 
01240 INPUTS1* 

01250 IFS1*“"Y"ORSl**"y"THENRUN 
01260 END 

01270 k-k+i:m-l+m:play0,10:cls 

01280 CURS10,1:PRINTZ3*!" SCORE IS "J M| 

01290 CURS10,3:PRINTZ4*| " SCORE IS "IN* 

01300 IFK«2*VTHEN1180 

01310 PRINTN"IT 18 NOW YOUR TURN , "JZ4* 


01320 PLAY 0,10 
01330 GOTO180 

01340 K*K+1:N-L+N:PLAY0,10:CLS 

01350 CURS10,1:PRINTZ3*;" SCORE IS "JMJ 

01360 CURS10,3:PRINTZ4*5" SCORE IS "JN| 

01370 IFK-2#VTHEN1180 

01380 PRINTN"IT IS NOW YOUR TURN , "5Z3* 

01390 PLAY 0,10 
01400 GOTO180 

01410 PLAY0,6:CLS:T1*T1+1:J1-J1+FLT(L) 

01420 PRINTN"YOUR SCORE THAT TURN WAS "JL 
01430 PRINTN"YOUR AVERAGE SO FAR IS "|J1/T1 
01440 IFFLT(L)>J1/T1:PRINT"YOU HAVE SCORED WORSE T 
HAN YOUR ANVERAGE!!" 

01430 IFFLT <L)<J1/Ti:PRINT"YOU ARE IMPROVING!!!" 
01460 PLAY0,50 

01470 CLS:PRINT"DO YOU WISH TO PLAY AGAIN ?(Y/N)" 
01480 INPUT S2* 

01490 IFS2*="Y"0RS2*="y"THEN180 
01300 GOTO1010 

02000 UNDERLINE:CLS:CURS26,3:PRINT"INSTRUCTIONS":N 
ORMAL 

02010 PRINT" THE COMPUTER SECRETLY PUTS 4 COLOR 
S BEHIND THE SCREEN IN- 

02020 PRINT-ANY ORDER IT WISHES. IT HAS 6 TO SELEC 
T FROM (R=RED,B*BLUE"N"G=GREEN,W=WHITE,P-PURPLE,Y= 


*ELLQW).AND IT CAN DOUBLE COLORS" 

02030 pftlNT-UP.YOU MUST TRY TO MATCH THE COLOURS I 
N THE SAME ORDER AS THE"N"COMPUTER HAS HIDDEN THEM 
. CLUES ARE GIVEN AT THE END OF EACH" 

02040 PRINT-GUESS(MENTIONED LATER) AND YOU ONLY GE 
T TEN CHANCES TO BRAKE"\"THE CODE. WHEN ALL 4 ARE 
THE CORRECT COLOURS AND IN THE RIGHT" 

02050 PRINT-POSITINS YOU HAVE BROKEN THE COMPUTERS 
HIDDEN CODE, AND IT "\"WILL REVEAL IT FROM BEHIND 
THE SCREEN." 

02060 CURS 30,16:PRINT"HIT ANY KEY TO CONTINUE."; 

02070R1*-KEY:IFR1*=""THEN2070 

02075CLS 

02080 UNDERLINE:CURS29,3:PRINT" CLUES ":NORMAL 
02090 PRINTN" AFTER EACH TURN, IN THE LEFT HAND CO 
LUMN YOU WILL SEE THESE"\"SYMBOLS,'b1’ AND 'wh’,TH 
ESE ARE THE IMPORTANT CLUES" 

02100 PRINTN"bl:- IT SHOWS THE NUMBER OF CORRECT C 
OLOURS IN THE SAME "N"POSITION AS THE HIDDEN ONES" 
02110 PRINTN"wh:- REPRESENTS THE NUMBER OF COLORS 
THAT ARE CORRECT BUT IN"N"THE WRONG POSITION" 

02120 PRINTN"THE PROBLEM IS DETERMINING WHAT GOES 
WHERE BY LOOKING BACK"N"AT THE CLUES FROM ALL YOUR 
TURNS" 

02130 CURS30,16:PRINT-HIT ANY KEY TO CONTINUE"; 
02140 R1*=KEY:IFR1*«""THEN2140 

02150 CLS:CURS27,1:UNDERLINE:PRI NT"EXAMPLE":NORMAL 
02160 PRINT "PLAYERS GUESS - R P G B " 

02170 PRINTN"THE ACTUAL CODE(HIDDEN AT THIS STAGE) 
"N" R G B W " 

02180 PRINT" THE COMPUTER GIVES THESE CLUES "N" 
b1=1 wh=2 " 

02190 PRINT" THIS MEANS THE PLAYER HAS 1 CORRECT i 
.e 'R’"N"THE PLAYER ALSO HAS TWO CORRECT BUT IN TH 
E WRONG POSITIONS" 

02200 PRINT"i.e *G’ AND , B’"\"THE LETTER ’P’ IS NO 
T THE RIGHT COLOUR AT ALL- 
02210 PRINTN N"GOOD LUCK- 

02220 CURS30,16:PRINT-HIT ANY KEY TO CONTINUE"; 
02230 R1*=KEY:IFR1*=""THEN2230 
02240 GOTO 1060 
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KEYWORDS 


This program allows words, 
commands or sequences of up 
to 15 characters in length to be 
typed repetitively with just two 
keystrokes. Twenty six words 
can be stored by typing TAB 
then the letter to store it under 
(ie. A to Z) followed by the char¬ 


acters to be remembered and fi¬ 
nally TAB again to mark the 
end. 

To list all the words stored, 
type LINE FEED twice, (see 
Table 1.) To recall a word, type 
LINE FEED then the letter it 
was stored under. This will 


ADDR 

CODE 

LINE 

LABEL 

MNEM 

OPERAND 




00100 

{ 4HHHHHHF* SINLE 

KEYWORD ENTRY 




00110 





00C2 


00120 

VECTOR 

E9U 

00C2H 

1input vector 

8006 


00130 

GETKEY 

EQU 

8006H 

{wait -for a key into A 

800C 


00140 

DISPLY 

EQU 

800CH 

{display char in B 

OOAO 


00150 

MEMTOP 

EQU 

OOAOH 

{top of memory pointer 

A3E9 


00160 

00170 

NORMAL 

EQU 

0A3E9H 

{normal input driver 

7D00 


00180 

00190 


ORG 

7D00H 


7D00 

210F7D 

00200 

INIT 

LD 

HL,DRIVER 


7D03 

22C200 

00210 


LD 

(VECTOR),HL 

{Store new input vector 

7D06 

21FE7C 

00220 


LD 

HL,INIT-2 

{HL=>top o-f usable mem. 

7D09 

22A000 

00230 


LD 

(MEMTOP),HL 

{Reset memory size 

7D0C 

C32180 

00240 

00250 


JP 

8021H 

{Return to basic 

7D0F 

CDE9A3 

00260 

DRIVER 

CALL 

NORMAL 

{Get a char -from keyboard 

7D12 

CO 

00270 


RET 

NZ 

{Return if none 

7D13 

FEOA 

00280 


CP 

OAH 

{Check -for a LINE FEED 

7D15 

2806 

00290 


JR 

Z,LINEFD 


7D17 

FE09 

00300 


CP 

09H 

{Check -for a TAB 

7D19 

2856 

00310 


JR 

Z, TAB 


7D1B 

BF 

00320 


CP 

A 

{Set Z -flag 

7D1C 

C9 

00330 

00340 


RET 


{Return with char in A 

7D1D 

21277D 

00350 

LINEFD 

LD 

HL,KEYED 

{Reset input vector to 

7D20 

22C200 

00360 


LD 

(VECTOR),HL 

{ intercept next key 

7D23 

3EFF 

00370 

NOKEY 

LD 

A,OFFH 


7D25 

B7 

00380 


OR 

A 

{Reset Z -flag 

7D26 

C9 

00390 

00400 


RET 


{Return as i-f no key presse 

7D27 

CDE9A3 

00410 

KEYED 

CALL 

NORMAL 

{Get char from keyboard 

7D2A 

CO 

00420 


RET 

NZ 

{Return if none 

7D2B 

FEOA 

00430 


CP 

OAH 

{Check for listing 

7D2D 

CAC77D 

00440 


JP 

Z , LI ST 


7D30 

FE60 

00450 


CP 

60H 


7D32 

3802 

00460 


JR 

C,N0LW1 

{Go if UPPER CASE 

7D34 

D620 

00470 


SUB 

20H 

{Convert to UPPER CASE 

7D36 

FE41 

00480 

N0LW1 

CP 

* A* 


7D38 

382D 

00490 


JR 

C,ABORT 

{Go if char not used 

7D3A 

FE5B 

00500 


CP 

’Z’+l 


7D3C 

3029 

00510 


JR 

NC,ABORT 

{Go if char not used 

7D3E 

D641 

00520 


SUB 

4.1 H 

(A«code for word 

7D40 

17 

00530 


RLA 


{Multiply 

7D41 

17 

00540 


RLA 


{ code by 

7D42 

17 

00550 


RLA 


{ 16. 

7D43 

17 

00560 


RLA 



7D44 

C3 

00570 


PUSH 

BC 

{Save BC 

7D43 

4F 

00580 


LD 

C, A 

!C“LSB of pointer 

7D46 

0600 

00590 


LD 

B, 0 


7D48 

CB10 

00600 


RL 

B 

{B*MSB of pointer 

7D4A 

21197E 

00610 


LD 

HL,DATA 

{HL->first word in table 

7D4D 

09 

00620 


ADD 

HL, BC 

{HL«>word to bounce back 

7D4E 

Cl 

00630 


POP 

BC 

{Restore BC 

7D4F 

226F7D 

00640 


LD 

(WORD),HL 

{Store word pointer 

7D32 

213A7D 

00650 


LD 

HL,BOUNCE 

{Reset input vector 

7D5S 

22C200 

00660 


LD 

(VECTOR),HL 

{ to bounce word back. 

7098 

18C9 

00670 


JR 

NOKEY 

1 Return as if no key presse 


d 


d 




greatly increase the speed of 
typing in a program under 
BASIC version 5.10. 

Listing 1 shows the source 
code for a 32K Microbee. It can 
be changed for a 16K Microbee 
by replacing line 180 with ORG 
3DOOH and reassembling. The 


ADOR 

CODE 

LINE 

LABEL 



00680 


7D5A 

2A6F7D 

00690 

BOUNCE 

7D5D 

7E 

00700 


7D5E 

23 

00710 


7D5F 

226F7D 

00720 


7D62 

B7 

00730 


7D63 

2802 

00740 


7D65 

BF 

00750 


7D66 

C9 

00760 

00770 


7D67 

210F7D 

00780 

ABORT 

7D6A 

22C200 

00790 


7D6D 

18B4 

00800 

00810 


7D6F 

0000 

00820 

00830 

WORD 

7D71 

CD0680 

00840 

TAB 

7D74 

FE60 

00850 


7D76 

3802 

00860 


7D78 

D620 

00870 


7D7A 

FE41 

00880 

N0LW2 

7D7C 

38E9 

00890 


7D7E 

FE5B 

00900 


7D80 

30E5 

00910 


7D82 

C5 

00920 


7D83 

47 

00930 


7D84 

CD0C80 

00940 


7D87 

D641 

00950 


7D89 

17 

00960 


7D8A 

17 

00970 


7D8B 

17 

00980 


7D8C 

17 

00990 


7D8D 

4F 

01000 


7D8E 

0600 

01010 


7D90 

CB10 

01020 


7D92 

21197E 

01030 


7D95 

09 

01040 


7D96 

0E00 

01050 


7D98 

063D 

01060 


7D9A 

CD0C80 

01070 


7D9D 

0622 

01080 


7D9F 

CD0C80 

01090 


7DA2 

CD0680 

01100 

MORE 

7DA5 

FE09 

OHIO 


7DA7 

2812 

01120 


7DA9 

77 

01130 


7DAA 

23 

01140 


7DAB 

FE20 

01150 


7DAD 

3002 

01160 


7DAF 

3E5F 

01170 


7DB1 

47 

01180 

CONTO 

7DB2 

CD0C80 

01190 


7DB5 

OC 

01200 


7DB6 

79 

01210 


7DB7 

FE0F 

01220 


7DB9 

20E7 

01230 


7DBB 

3600 

01240 

EXIT 

7DBD 

0622 

01250 



program is entered from Listing 
2 which can be used for 16K or 
32K Microbees. Once run this 
program can be cleared by typ¬ 
ing NEW. The keyword will re¬ 
main enabled even if the Micro¬ 
bee is warm reset. 

David Morrison 
East Ringwood VIC 


MNEM 

OPERAND 

LD 

HL,(WORD) 

LD 

A,(HL) 

INC 

HL 

LD 

(WORD),HL 

OR 

A 

JR 

Z,ABORT 

CP 

A 

RET 


LD 

HL,DRIVER 

LD 

(VECTOR),HL 

JR 

NOKEY 

DEFW 

0000 

CALL 

GETKEY 

CP 

60H 

JR 

C,N0LW2 

SUB 

20H 

CP 

’A' 

JR 

C,ABORT 

CP 

’Z* +1 

JR 

NC,ABORT 

PUSH 

BC 

LD 

B,A 

CALL 

DISPLY 

SUB 

41H 

RLA 


RLA 


RLA 


RLA 


LD 

C, A 

LD 

B, 0 

RL 

B 

LD 

HL,DATA 

ADD 

HL, BC 

LD 

n 

O 

LD 

B, 

CALL 

DISPLY 

LD 

B, • - • 

CALL 

DISPLY 

CALL 

GETKEY 

CP 

09 

JR 

Z, EX IT 

LD 

(HL),A 

INC 

HL 

CP 

32 

JR 

NC,CONTO 

LD 

A,95 

LD 

B, A 

CALL 

DISPLY 

INC 

C 

LD 

A, C 

CP 

15 

JR 

NZ l MORE 

LD 

(HL),00 

LD 

B,’"’ 



(HL->word to bounce 
(A-char to i«nd back 
(HL«>next char in word 
(Restore word pointer 

I Go i-f end o-f word 
I Set Z flag 

(Return with char in A 

I Reset input vector 
{ -for normal operation 
I Return as i-f no 

key pressed 


{Wait for a key 

;Go if UPPER CASE 
JConvert to UPPER CASE 

I Go if char not used 

I Go if char not used 
;Save BC 

{Show char to be modified 
iA*code for word 
{Mup1tip1y 
I code by 
{ 16. 

{C«LSB of pointer 

(B*MSB of pointer 
{HL«>first word in table 
(HL*>word to modify 
{Set word length to zero 

{Show ready to modify 

{ the word sign. 

{Wait for key 
{Check for TAB 
{Go if end of word 
{Store char into word 
(HL**>next char in word 
{Check for a control char 
{Go if not a control char 
{_ Signifies control char 

{Show char of word 
{Increment word length 

{Check for max length 
(Get next char in word 
I Mark end of word 






V 







ADDR 

CODE 

LINE 

LABEL 

MNEM 

OPERAND 


7DBF 

CD0C80 

01260 


CALL 

DISPLY 

{Show end of word 

7DC2 

Cl 

01270 


POP 

BC 

(Restore BC 

7DC3 

3E03 

01280 

BREAK 

LD 

A,03 


7DC5 

BF 

01290 


CP 

A 

1 Set Z flag 

7DC6 

C9 

01300 

01310 


RET 


I Return as if BREAK pressed 

7DC7 

D9 

01320 

LIST 

EXX 


1 Save registers 

7DC8 

060A 

01330 


LD 

B, OAH 

IB-LINE FEED 

7DCA 

CD0C80 

01340 


CALL 

DISPLY 


7DCD 

060D 

01350 


LD 

B, ODH 

(B-RETURN 

7DCF 

CD0C80 

01360 


CALL 

DISPLY 


7DD2 

111A41 

01370 


LD 

DE,411AH 

1D-ascii,E-code of word 

7DD5 

21197E 

01380 


LD 

HL,DATA 

(HL*>first word in table 

7DD8 

42 

01390 

LOOPO 

LD 

B, D 


7DD9 

CD0C80 

01400 


CALL 

DISPLY 

1 Show ascii char -for word 

7DDC 

063A 

01410 


LD 

b, *: * 


7DDE 

CD0C80 

01420 


CALL 

DISPLY 


7DE1 

0620 

01430 


LD 

B,’ ’ 


7DE3 

CD0C80 

01440 


CALL 

DISPLY 


7DE6 

0E1D 

01450 


LD 

C, 29 

iC-spacing counter 

7DE8 

E5 

01460 


PUSH 

HL 

{Save HL 

7DE9 

7E 

01470 

L00P1 

LD 

A,(HL) 

iGet char from word 

7DEA 

B7 

01480 


OR 

A 


7DEB 

2810 

01490 


JR 

Z,NEXTWD 

1 Go if end of word 

7DED 

FE20 

01500 


CP 

32 

(Check for a control char 

7DEF 

3002 

01510 


JR 

¥ 

O 

u 

z 

iGo if not a control char 

7DF1 

3E5F 

01520 


LD 

A, 95 

Signifies control char 

7DF3 

47 

01530 

OK 

LD 

B, A 


7DF4 

CD0C80 

01540 


CALL 

DISPLY 

{Show char of word 

7DF7 

OD 

01550 


DEC 

C 

»Decrement spacing counter 

7DF8 

280B 

01560 


JR 

Z,NXTWD 

5 Go if no more space 

7DFA 

23 

01570 


INC 

HL 

|HL->Next char in word 

7DFB 

18EC 

01580 


JR 

L00P1 

5 Show rest of word 

7DFD 

0620 

01590 

NEXTWD 

LD 

B,’ ’ 


7DFF 

CD0C80 

01600 


CALL 

DISPLY 

{Line up with spaces 

7E02 

OD 

01610 


DEC 

C 


7E03 

20F8 

01620 


JR 

NZ,NEXTWD 


7E05 

14 

01630 

NXTWD 

INC 

D 

|Next ascii for word 

7E06 

El 

01640 


POP 

HL 

JRestore HL 

7E07 

C5 

01650 


PUSH 

BC 

1 Save BC 

7E08 

011000 

01660 


LD 

BC,10H 


7E0B 

09 

01670 


ADD 

, HL,BC 

|HL->next word 

7E0C 

Cl 

01680 


POP 

BC 

JRestore BC 

7E0D 

ID 

01690 


DEC 

E 

iNext code for word 

7E0E 

20C8 

01700 


JR 

NZ,LOOPO 

{Go until no more words 

7E10 

D9 

01710 


EXX 


(Restore registers 

7E11 

210F7D 

01720 


LD 

HL,DRIVER 

(Restore input driver 

7E14 

22C200 

01730 


LD 

(VECTOR),HL 

1 for normal operation 

7E17 

18AA 

01740 

01750 

01760 


JR 

BREAK 

(Return as if BREAK pressed 

01 AO 


01770 

DATA 

DEFS 

1AOH 


7FB9 


01780 

01790 

HIMEM 

EQU 

• 


0000 


01800 


END 




HI HEM 

7FB9 

L00P1 

7DE9 

EXIT 

7DBB 

WORD 

7D6F 

LIST 

7DC7 

LINEFD 

7D1D 

MEMTOP 

00A0 


NXTWD 

7E05 

LOOPO 

7DD8 

MORE 

7DA2 

DATA 

7E19 

NOKEY 

7D23 

DRIVER 

7D0F 

DISPLY 

800C 


OK 

7DF3 

BREAKf 

7DC3 

N0LW2 

7D7A 

ABORT 

7D67 

KEYED 

7D27 

INIT 

7D00 

GETKEY 

8006 


NEXTWD 

7DFD 

CONTO 

7DB1 

BOUNCE 

7D5A 

N0LW1 

7D36 

TAB 

7D71 

NORMAL 

A3E9 

VECTOR 

00C2 


110 


Tabl# 1 


Words stored undtr keyboard charactvrs 


a: 

auto 

b: 

GOSUB 

c: 

CURS 

d: 

EDIT__ 

e: 

EDIT 

f: 

FOR 

g: 

GOTO 

h: 

HIRES 

i: 

INPUT 

j: 

EDASM__ 

k: 

PEEK ( 

l: 

LIST_ 

m: 

RENUM 

n: 

NORMAL 

o: 

POKE 

p: 

PRINT 

q: 

PLOT 

r: 

RUN_ 

s: 

SET ( 

t: 

THEN 

u: 

UNDERLINE 

v: 

RETURN 

w: 

RESET( 

x: 

NEXT 

y: 

PLAY 

z: 

ZONE 



Listing 2. 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00171 
00172 
00173 
00174 
00180 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
101 10 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 


POKE 32000,128 

IF PEEK(32000)*128 THEN LET Z*32000 ELSE LET Z*15616 
PRINT"Sing1e keyword entry." 

PRINT"Storing program into "I 

IF Z*32000 THEN PRINT"32K"; ELSE PRINT"16K"; 

PRINT" memory." 

FOR A=Z TO Z+687:READ B:P0KE A,B:NEXT A 
IF Z=32000 THEN 180 

POKE Z+2,6l:P0KE Z+8,60:P0KE Z+31,61:POKE Z+47,61 
POKE Z+76,62 l POKE Z+81,61:P0KE Z + 84,61:POKE Z+92,61 
POKE Z+97,61IP0KE Z+105,61:POKE Z+148,62:POKE Z+215,62 
POKE Z+275,61 
X=USR(Z) 

DATA 33,15,125,34,194,0,33,254,124,34,160,0,195,33,128 
DATA 205,233,163,192,254,10,40,6,254,9,40,86,191,201,33 
DATA 39,125,34,194,0,62,255,183,201,205,233,163,192,254 
DATA 10,202,199,125,254,96,56,2,214,32,254,65,56,45,254 
DATA 91,48,41,214,65,23,23,23,23,197,79,6,0,203,16,33 
DATA 25,126,9,193,34,111,125,33,90,125,34,194,0,24,201 
DATA 42,111,125,126,35,34,111,125,183,40,2,191,201,33 
DATA 15,125,34,194,0,24,180,99,127,205,6,128,254,96,56 
DATA 2,214,32,254,65,56,233,254,91,48,229,197,71,205,12 
DATA 128,214,65,23,23,23,23,79,6,0,203,16,33,25,126,9 
DATA 14,0,6,61,205,12,128,6,34,205,12,128,205,6,128,254 
DATA 9,40,18,119,35,254,32,48,2,62,95,71,205,12,128,12 
DATA 121,254,15,32,231,54,0,6,34,205,12,128,193,62,3,191 
DATA 201,217,6,10,205,12,128,6,13,205,12,128,17,26,65 
DATA 33,25,126,66,205,12,128,6,58,205,12,128,6,32,205 
DATA 12,128,14,29,229,126,183,40,16,254,32,48,2,62,95 
DATA 71,205,12,128,13,40,11,35,24,236,6,32,205,12,128 
DATA 13,32,248,20,225,197,1,16,0,9,193,29,32,200,217,33 
DATA 15,125,34,194,0,24,170,65,85,84,79,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,71,79,83,85,66,32,0,0,0,0,0,0,0,0,0,0,67 
DATA 85,82,83,32,0,0,0,0,0,0,0,0,0,0,0,69,68,73,84,13 
DATA 0,0,0,0,0,0,0,0,0,0,0,69,68,73,84,32,0,0,0,0,0,0 
DATA 0,0,0,0,0,70,79,82,32,0,0,0,0,0,0,0,0,0,0,0,0,71 
DATA 79,84,79,32,0,0,0,0,0,0,0,0,0,0,0,72,73,82,69,83 
DATA 0,0,0,0,0,0,0,0,0,0,0,73,78,80,85,84,0,0,0,0,0,0 
DATA 0,0,0,0,0,69,68,65,83,77,13,0,0,0,0,0,0,0,0,0,0,80 
DATA 69,69,75,40,0,0,0,0,0,0,0,0,0,0,0,76,73,83,84,13 
DATA 0,0,0,0,0,0,0,0,0,0,0,82,69,78,85,77,32,0,0,0,0,0 
DATA 0,0,0,0,0,78,79,82,77,65,76,0,0,0,0,0,0,0,0,0,0,80 
DATA 79,75,69,32,0,0,0,0,0,0,0,0,0,0,0,80,82,73,78,84 
DATA 32,0,0,0,0,0,0,0,0,0,0,80,76,79,84,32,0,0,0,0,0,0 
DATA 0,0,0,0,0,82,85,78,13,0,0,0,0,0,0,0,0,0,0,0,0,83 
DATA 69,84,40,0,0,0,0,0,0,0,0,0,0,0,0,32,84,72,69,78,32 
DATA 0,0,0,0,0,0,0,0,0,0,85,78,68,69,82,76,73,78,69,0 
DAT A 0,0,0,0,0,0,82,69,84,85,82,78,0,0,0,0,0,0,0,0,0,0 
DATA 82,69,83,69,84,40,0,0,0,0,0,0,0,0,0,0,78,69,88,84 
DATA 32,0,0,0,0,0,0,0,0,0,0,0,80,76,65,89,32,0,0,0,0,0 
DATA 0,0,0,0,0,0,90,79,78,69,32,0,0 
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Well, here’s a game for the 
Microbee and yes, it is another 
variation on the old Star Trek 
game. The only difference is 
that I wrote it. 

Instructions 

Just run the program. Once 
out of the menu, the game will 
begin. The commands are T for 
thrust, S for shields, F for tor¬ 
pedoes, D for display, C for 
computer, W for game save and 
X for self-destruct. 

In the Thrust mode there are 
two choices, T for controlled 
thrust and N for hyperspace. 

In the shield routine, T for 
transfer and S for shield status 
change. 

Within shield change, F is for¬ 
ward, R is rear, P is port, S is 
starboard, U is shield up and D 
is shield down. 

Cursor control for Computer 
direction/distance calculator T is 


W = up, Z = down, A = left and 
S = right. A RETURN will exit 
cursor control and print co-ordi¬ 
nates of cursor position, direc¬ 
tion of cursor from Viper and 
the distance. Another RETURN 
is then awaited before the com¬ 
mand mode is entered. 

There you have it. Any mis¬ 
takes made will be prompted by 
an error message. It may be 
useful to place a CTRL G char¬ 
acter at the end of every error 
message when typing the pro¬ 
gram in. This will get the 
player’s attention if an error is 
made. 

I have noticed that the energy 
for the Viper is usually insuffi¬ 
cient. Try replacing A3 = RND* 
FLT(E)*250 + 20000 in line 350 
by A# = RND*FLT(E)* 400 + 
20000. Have fun! 

Jon Barnett 
Northmead NSW 


00100 DATA 33*210,0, 195, 162.148 

00110 POKE 162,30{POKE .1 63+1 IRFSTORE 100{FOR A = 336 TO 341 :READ B{POKE" A*I*{NEXT A{POKE! 140.1 {POKE 220 

.20 

00120 GOTO 210 

00130 X=INT( RNDHOO HI t Y= : I NT< RNB*100 HI {A21> ; =A0$( Y )t IF A2$( *X, X K>" V THEN 130 ELSE LET A2$=A2$< il.X- 
1 HAmA2*< 5X+1 )tA0$< Y )=A2${RETURN 

00140 CL.S{CURS 1 s .1. {FOR CXI TO 13{PRINT 1X23 165II {NEXT CJPCG ID=EH-12 {FOR O-EH10 TO B STEP-t{CURS 2.D-C 
5A1$=A0$(C ){PRINT Al$< $A,A+20 ){NEXT C{NORMAL 

00150 CURS 30»3 {PE ; : I NT" Con d i i i on "SOS {CURS 30»4 {PRINT" Co--ordi.ne.tes ’T.I.4 XT" »"C14 Y3JCLJRS 30 

,51 PRINT"Energy "CF8*1 A3II{CURS 30,6{PR INT"Cy.lone Left.. "[13 E3 

00160 CURS 30 1 7 { PCG I PRINT"ShieldsS" 51NORMAL{PRINT SPCC8)CF6*1 B3 3JCURS 30.8SPRINT'^oruard" SPCC10)A4 
t.( 0 ){CURS 30.9{PRINT"Rear" SPCC 13 )A4$< 1 CCURS 30,10:PRINT"St3rbO3rd" SPCC8) A4t< 2 ) 

00170 CURS 30 > 11 {PR I NT " Por t," SPCC 13 )A4*( 3 ) {RETURN 


00130 
FOR C 
00190 
. 102 . 
00200 
.16.0 
00210 
00220 
5.240 
00230 
00240 
00250 
00260 


CURS 30.14 {PRINT"InEufficieni enersy avei .table ♦ " {QJRS 30.15 {PRINT"Returnina to Command niotie»"t 
••=1 TO 300{NEXT C-IG0T0 370 


DATA 24.24.24.24.153'. 153.153.165.102.231.219.219.219.219.219.255.0.0.24.60.126.126.2 


xJJ . i\)J » 


231 


165,153.129.0.0.0.0.0.0.0.0.8.73.42.23.42.73.8.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 
DAT A 0.0.0.0.0.0.0.60.60,60.60.60.60 * 60.60 * 60.60.60.60 *0.0.0.0.0.0.16.16.16.16.16.16.40 > 1.08.16 

IN*0 {OUT*0 {INVERSE {NORMAL {RESTORE 190!A=64016:FQR A=A TO A+95JREAD EC POKE A. EC NEXT A 
DATA 62.32.2.62.11.17.0.245.33.65.240.229.1,21.0.237.176.225.213.17,64.0.25,209.61.32.240.33.6 
,14,11,62,160,17,64,0,6,21,229,119,35,16,252,225,25,13,32,244,201 

DATA 33,0,245,17,65,240,62,11,213,1,21,0,237,176,209,229,33,64,0,25,235,225,61,32,239,201 

RESTORE 2201A=520{FOR A=A TO A+75IREAD EC POKE A.BINEXT A 

CLSICURS 23,1{PRINT CA1S 35 3\TAB<23 )"*GALACTIC FIGHTER#"\TABC 23 )[A18 353 

Al$=" ****pro3r3rri by JCL* Barnett ***#Press 3ny Key to con tin 


ue "tSPEED 10 

00270 FOR A=1 TO 109:CURS 23?7tPRINT Al$< »A?A+-17 )tIF KEY="" THEN NEXT AtGOTO 270 ELSE NEXTtA 280 
00280 CURS 23?7tPRINT"**By J*L*BarnetU* M 

00290 Al$=" 1. New Game 2* Old Game 3. Saved Game M :CURS 23?13tP 

RINT-Option:*' ' 

00300 SPEED 20tF0R A=1 TO 75SCURS 30?13!F'RINT A1S( ?A,A+9 )tA2$=KEY!IF A2$="" THEN NEXT A tGOTO 300 EL 
SE NEXT*A 310 

00310 SPEED OtIF A2*="l" THEN CLEARtCURS 30?13SPRINT"New Game "tGOTO 320 ELSE IF A2$="2" AND Z=1 T 
HEN CURS 30?13 SPRINT"Old Game "tGOTO 370 ELSE IF A2$="3" THEN 1530 ELSE 300 
00320 STRS( 11000 )SE=INT( RNIi*20 )+30tS=INT< RND*30 )+40SDIH T( S? 1 )?U( E? 1 )?A0< 100 )?A4< 3 ) 

00330 z=i:prmt< : >:for a=i to ioo:Aot<A>= ,, $$$i»*m$$ii*m$$m$ii$$$$$$$$*$$$$$$$*$$$$$*m*$$$$$$$$$$ 
$$$$$$*$$$$$$$$$$$$$$$$$$$$$$$*$$«$$$$$$$" :nf.xt a 

00340 A1$=CHR< 34KF0R A=1 TO ESGOSUB 130SNEXT AtAl$="♦ " SFOR A=1 TO SSGQSUB 130tNEXT A!A1$=" ! " tGOSUB 
130 

00350 A3=RND*FLT< E >*250+20000!B3=500!A3=A3-50QSFOR A=0 TO 3 ! A4$( A )="Down" SNEXT A 
00360 FNO=**»01745329 

00370 S0$=" GREEN"tA=X-10tB=Y-5!IF Ad THEN LET A=1 ELSE IF A;80 THEN LET A=80 
00380 IF B<1 THEN LET B=t ELSE IF B>90 THEN LET B=90 

00390 A2*=CHR( 34 )!FOR D=B TO B+10!A1$=A0*»< H )tA1$=A1$( ?A?A+20 >SFGR C=1 TO 20 JF=SEARCH< A1$?A2$?C )SIF F 
=0 THEN NEXT*C 440 ELSE IF RNIK.6 THEN 430 

00400 F=F+A-ltA5=SGN(FLT(F-X))!A6=5GN(FLT(I»-Y)):iF n-Y=0 THEN LET A7=58*A5 ELSE LET A7=FLT( F-X )/FLT( 
D-Y ) 

00410 B0=150JIF ABS( A 7 K=1 AND A6=l THEN LET (".=0 ELSE IF ABS( A7 )<=1 AND A6=-l THEN LET G=1 ELSE IF A 
5=1 THEN LET G=2 ELSE LET G=3 

00420 IF A4$( G ) : ="Down" THEN LET A3--A3-B0*( .9-RND* *1 5 ) .ELSE LET B1 -=RND* . IT* 1 !B3=B3-B0*B1 !A3=A3--< BO-BO 
*B1 )*( *9-RNH**15 ) 

00430 NEXT C 
00440 NEXT D 

00450 FOR D=B TO B+10 !Al$ = AO+( D ) t A Al $( ?A?A+20 ) t F •• SEARCH( A1+*A2$) 11F F=0 THEN 500 ELSE IF RND<. 5 T 
HEN 500 ELSE LET F=F+A-1 

00460 IF RNIK»5 THEN LET G=F+1 ELSE LET G=F~ I 
00470 IF RNIK ♦ 5 THEN LET H=D+l ELSE LET H=B-1 
00480 IF H<1 OR G<1 OR K: 100 OR G>100 THEN 500 

00490 At$ = AO*(H)tIF Al$( S G?G )0"V THEN 500 ELSE LEI-Al$= Al*\ 51 *G-I . >+A2'MAJ $( ?G+1 )SAO$< H )=A.HtAl$=AO 
*< D):ai.$=ai$* ?i tF-i )f" vi ai$( ?f+i ):ao$( i:d=ai* 

00500 NEXT D 

00510 (>INT(B3)/100:F=0:FQR D=0 TO 3: IF A4$(D>= ,, Up" then LET F= : F + 1 
00520 NEXT Dt1F C>=F OR F=0 THEN 530 ELSE LET G=!NT< KND#4 )tA4$( G X"Down M 

00530 A2$=CHR( 34 KFOR C=B TO B+10SA1.$=A0*< C K A1 $ =A1T>< ; AyA+20 )t IF SEARCHC A1$»A2$ )<>0 THEN LET S0$="** 
YELLOW**"SNEXT*C 540 ELSE NEXT CtGOTO 570 

00540 FOR D=Y-3 TO YfJlIF DCL OR D.HOO THEN NEXT DtGOTO 570 ELSE LET A1$=A0$< M )tFOR C=X--3 TO X+31 IF 
Al$< iC»C)=CHR(34 ) THEN LET SO$="***PED***" !NEXT*C 560 ELSE NEXT CtNEXT D 
00550 GOTO 570 
00560 NEXT#D 570 

00570 D=0tGOSUB 140tIF A3C10 THEN 1380 ELSE CURS 30.13tPCGtPRINT"COMMAND:"? tNORMAL 

00530 1 : 1 = 11+1 :A1$=KEY: IF Is>200 THEN 370 ELSE IF A1*= H T" OR Al$="t" THEN PRINT"Thru si" t GOTO 660 

00590 IF A1$="S" OR A.t$="s" THEN PRINT "Shi el d r >" ! GOTO 790 

00600 IF A1$="F" OR AT*="f" THEN PRI NT"Torpedoes"tGOTG 980 

00610 IF A1*="D" OR Al$="d" THEN PRINT"Di sp 1 aw" tGOTO 1080 

00620 IE A1$="C" OR Al$="c" THEN PRINT"Comeuter"tGOTO 1160 

00630 IF A1$="U" OR Al$="w" THEN PRINT"Save"tCURS 1?14 SPRINT CA127 323tGOTO 1470 

00640 IF A1$="X" OR AlS="x" THEN CLEAR tGOTO 1380 

00650 IF Al$*="" THEN 580 ELSE CURS 30? 14SPRINT"Compu Ler unable to interpretSCIJRS 30?15SPRINT"Pleas 
e re-enter*"tCURS 38?13tG0T0 580 

00660 IF A3<100 THEN 180 ELSE CURS l?14tPRINT CA127 323tCURS 1?14 S F'CG 5 PRINT" Mode t"tNORMAL! CURS 1 ? 15 1 
PRINT"Thrusters or Hyperspace" ? 

00670 Al$=KEYtIF A1$="T" OR Al$="t" THEN 720 ELSE IF A1$="H" OR Al$="h" THEN LET D=USR<523)tGOTO 690 
ELSE IF Al$="" THEN 670 

00680 CURS 30 ? 141 F'.R I NT " Compu ter unable to translate*" tCURS 30? 15 tPRINT"Pleese re-enter »" tCURS 6?14bG 
OTO 670 

00690 IF A3C100 THEN 180 ELSE LET A3=A3-100 

00700 CURS 1 ? 141 PRI NT CA127 323 tCURS 1 ? .1.4 SPRINT "Hyper space" JG=INT< RNDftlOO )F1 tH=INT( RNDI100 )+l tAl$=AO 
$(H)tIF A1S( ?G?G )<>"$" THEN 1390 ELSE LET A1$=A1$( 51 ?G-l )+" ! "+-A1$< ?G+1 )tA0$( H )=A1$ 

00710 A1$=A0$( Y )!A1$=A1$< ?1?X-1 )+"$"+ Al$( ?‘X+1 )SA0$( Y )=Al$tX=GtY=HtGOTO 370 

00720 CURS 1 ? 14SPRINT CA127 323SCtJRS 1 ? 141 INPUT"Direction" A5tA5=FN0( A5 )tA6=SIN( A5 )SA7=C0S( A5 ) 

00730 CURS 1 ? 151 INPUT"Distance"C !C=INT( ABS( FLT( C )) )t IF C=0 OR 010 THEN CURS 30? 14tPRINT"Con.Puter de 
tects incorrect data*"tCURS 1?151PRINT CA29 323"Re-enter please*"tGOTO 730 

00740 IF A3<FLT(C)*15*(ABS(A6)+ABS(A7)+1) THEN 180 ELSE LET BO=FLT( X )tBl=FLT( Y )tG=X*H=YtFOR C=1 TO C 
tBO=BO+A6SBl=Bl+A71IF Bl>100 THEN LET B1 = 102-B1 ELSE IF B1<1 THEN LET B1=100-B1 
00750 IF B0>100 THEN LET B0=102-B0 ELSE IF B0<1 THEN LET B0=100-B0 

00760 D=INT( BO)tA1$=A0$< INK B1))SIF Al$( ?D?D)<>"$" AND Al$< ?D?D )<>"!" THEN NEXT*C 780 ELSE LET G=INT 
( BO )SH=INT( B1)SNEXT C 


GALACTIC FIGHTER |^ 

00770 A3=A3-FLT( C )*15*( ABS( A6 )+ABS( A7 HI )J A1$=A0$< Y )J AH=A1$< *1*X-1 )+"« ,, +Al«( 5X+1 )JA0t< Y )=AH JX=G JY= 

h:ai$=ao$( Y):ai$=ai$< *i*x-n+" !"+ah< *x+i)jao$(Y)=ai$jgotg 370 

00780 CURS 30*14tPRINT"Computer shut engines down due to"JCURS 30f15JPRINT"an obstacle in path* "tFO 
R D=0 TO 300:NEXT DJGOTO 770 

00790 CURS 1*14JPRINT CA127 323JCURS 1*14JPRINT"Transfer or Shield Change" * 

00800 AH=KEYJIF A1$="T h OR AH=" t" THEN CURS 1»14*PRINT CA127 323JG0T0 930 ELSE IF AH="S" OR Al*=" 
5 “ THEN CURS 1»14:PRINT CA127 323JG0T0 820 

00810 IF AH=" " THEN 800 ELSE CURS 30*14JPRINT"Computer unable to decode data*"JCURS 30*15JPRINT"fte~ 
enter please*"SGOTO 800 

00820 IF A3<15 THEN 180 ELSE CURS 1*14:PRINT"Shield:"* JC=4 

00830 AH=KEYJIF A1$="F" OR A1 THEN PRINT" Forward" t C=0 ELSE IF AH="R" OR AH^'r" THEN PR I NT "Re 

ar" JC=1 ELSE IF A1$="S" OR AH="s" THEN PRINT ,, Starboard" JC=2 

00840 IF AH="P" OR AH="p" THEN PRINT"Port"?C=3 ELSE IF AH="" THEN 830 

00850 IF C<>4 THEN 870 

00860 CURS 30* 14 JPRJ.NT"Comr-uter detects incorrect data*"JCURS 30*15JPRINT"Please re-enter* “ {CURS 8»1. 
4:GOTO 830 

00870 F=Ot A11 »="Up" IFOR B=0 TO 3JA2*=A4$<D>JF=F+SEARCH<A2$*Al$ )JNEXT INCURS 30»14-: PRINT IA96 323JCURS 
1 > 15 JPRINT"Statu a J" > 

00880 AH=KEYJIF A.1$="U" OR A1 $ ="u" THEN LET AH = "Up" JGOTO 920 ELSE IF A1$="D" OR AH="d" THEN LET A 
1$="Down":GOTO 900 

00890 IF Al$~"" THEN 880 ELSE CURS 30*14*PRINT"Computer unable to translate»"JCURS 30*15 SPRINT"Pleas 
e re-enter*"JCURS 8*15JGQTG 880 

00900 IF A1*=A4$<C> THEN CURS 30* :L4tPRINT"Shield already at status* "JCURS 30* 15JPRINT"Returnins 
to Command Mode*":FOR C=1 TO 300tNEXT CJGOTO 370 

00910 PRINT Al$ tCURS 47*8+CJPRINT AH " ":A41>( C XA1 $ J A3=A3-I5J FOR C=1 TO 300.1 GOTO 370 

00920 IF I NIT 83/100 KF+l THEN CURS 30 * 14: PRINT" Unable to raise another shield*"JCURS 30 * 151 PRINT "Ret 

urninsi to Shield mode *" J FOR f>i TO 2501NEXT CJGOTO 790 ELSE GOTO 900 

00930 CURS :l*14JPCGIPRINT"Transfer Energy:"INORMAL:CURS 1 * 15JPRINT"ShieIds available!"i 
00940 AH=KEYJIF AH="" THEN 940 

00950 C-INT(UAL( Al$)):iF C<1 OR 04 THEN CURS 30 * 14: PRINT" list a input is scrambled *" JCURS 30*15JPRINT 
"Re-enter please*"JGOTO 940 ELSE IF A3+B3<FI.T< C )* 100+20 THEN 180 

00960 CURS 19*15:PRINT Al t: IF C:~INT( B3 )/100 THEN CURS 30* 14JPRINT"Shie.lds already available* " JCIJR 
S 30* 15JPRINT"Return i nS to Shield mode*":F0R G=0 TO 500JNEXT CJGOTO 790 
00970 A3=A3+B3-FLT' C -)% 100•-20SB3=FI...T( C )*100JGOTO 370 

00930 IF A3<30 THEN 180 ELSE CURS 1*14JPRINT CA127 3231IF A3<30 THEN 130 ELSE CURS 1 * 14JINPUT"Direct 
ion"A5JA5=FN0( A5 ) J A6=SIWA5 )JA7=CGS< A5 )JA3=A3~30 

00990 CURS 1* 15:iNPUT"Bistsnce ,, C:C= : INT( ABS< FLIT C ) ) >: IF C=0 OR 05 THEN CURS 30* 14 :PRINT"ConiPuter det¬ 
ects incorrect data*" JCURS 1 * 15IPRINT I.A29 32“I"Re-en ter please*" :G0T0 990 

01000 B 0=FL.T( X ):B1 =FL.T i Y ):G~XJH=Y:D-1:FOR 0:1. TO CJB(5=BO+A6 JBHB1+A7: IF INT( B1 »100 OR INK BO »100 0 
R INT( B1 HI OR INK BO Kl THEM NEXT*C 1030 ELSE IF DO 1 THEN POKE Df 32^— 

01010 D=INT( BO ) J A1$= : A0TT INK BI. )) I IF Al$\ * D*Ii )=CHR< 34 ) THEN NEX’(JJO^04^ELSE IF Al$( *D*D )="♦“ THEN NE 
XT*C 1070 . 

01020 IF I NIT BO XX AND JNKB1XY THEN NEXT C ELSE 1J H= 11+B-1 NT ( B1 ) J D=61440+64#H+G: POKE H*1 

66: FOR F=1 TO 100JNEXT FI NEXT C 

01030 CURS 30*14 SPRINT"Torpedo exploded harmlessly at "JCURS 30*15:PRINT INT(BO )"*"INK B1 )"" SPC(1 
2 )JFOR C=1 TO 300JNEXT CJGOTO 370 

0.1040 C=INT( RNIifclOO )+l J IF C<=25 THEN CURS 30* 14JFXI NT"Torpedo ineffective as the "JCURS 30*15: 

PRINT"Cylon Ship had shields up*" JFOR 0:1. TO 300JNEXT CJGOTO 370 

01050 A1$=A1$( *1*D-1 H'T1A1$( *H+1 )!A0$C INKB1 ) )=AH t D=D+61441+64*( U+B-INK B1 >)-AJD=USR< 520*B ) JFOR 
G=1 TO 10JD=USR(570)JF0R H=1 TO 1001 NEXT H JIi=t.JSR( 523 ) JFOR H=1 TO 100 J NEXT HINEXT G 
01060 n=USR< 5/70): CURS 30 *141 PR I NT" Cy .1 on Attack Craft destroyed* "ICIJRS 30*15JPRINT CA33 321J PLAY 1 
5 ;i5*i5?15*15*i5;:i.5:e=e-i:for c=i to 3oo:next c:if e=o then 1420 else goto 370 

01070 CURS 30*141 PR 1 NT" 81 ar absorbed the torpedo at "JCURS 3Q»15JPRINT INK BO )" *" INT( B1 )" " SPOT 12 
):F0R C=1 TO 300INEXT CJGOTO 370 

01080 IF A3<10 THEN 130 ELSE CURS 1*14JPRINT LA127 323! A3=A3-10 
01090 CURS If 14 SPRINT CA29 323 

01100 CURS 1* 14J:[NPUT ,, Co-ordinates ,, A*BJIF ACI. OR B<1 OR A>100 OR B.-I.OO THEN CURS 30* 14JPRINT"Compute 
r detects incorrect, data* "JCURS 30* 15 JPRINT"Please re-en ter ♦" JQOTO 1090 
OHIO G=A J H=B J A= A-10 J B=B-5 J IF A>30 THEN LET A=80 ELSE IF A<1 THEN LET A=1 
01120 IF B>90 THEN LET B=90 ELSE IF B<1 THEN LET B=1 

01130 CLSJFOR C=1 TO 13JCURS 20*CJPRINT CA23 165 3 JNEXT CJPCGJD=B+12JF0R C=B+10 TO B STEP-1JCURS 21*D 
-CJA1$=A0$<C)JPRINT Al$< * A*A+20 )JNEXT CJNORMAL 

01140 D=61460+64#( 11+B-H HG-ASPOKE D* 216 JA1$="Display J "+STR» G H " * "+STR< H )JC=( 23-LEN( AH ) )/2 JCIJRS 20+ 

C* 14SPRINT AH 

01150 IF KEY="" THEN 1150 ELSE GOTO 370 

01160 CURS 1 * 14 SPRINT CA127 32 3 J CURS 1*14JPRINT"ModeJ"5 

01170 A1$=KEY J IF Al$="" THEN 1170 ELSE LET C=INT( UAL< AH)) J IF C-<1 OR 02 THEN CURS 30* 14 JPRINT"Compu 
! ter unable to decode data*"JCURS 30*15JPRINT"Re-enter please*"JCURS 6*14JG0T0 1170 
101180 IF C=2 THEN 1320 ELSE IF A3<15 THEN 180 ELSE CURS 1*14SPRINT EA127 323JCURS 1 * 14JPRINT"Birecti' 
lon/Distance 1"JC=AJD=BJG=61441JH=G+64*(11+B-D)+C-AJF=PEEK( H )SPOKE H*216 

01190 FOR 1=1 TO 100JA1$=KEYJIF Al$<>"" THEN NEXT*I 1200 ELSE NEXT IJPOKE H*FJFOR 1=1 TO 100JA1$=KEY 
SIF Al$<>"" THEN NEXT*I 1200 ELSE NEXT IJPOKE H*216JG0T0 1190 




01200 POKE H»216tIF A1$=CHR(13) OR A1$=CHR(13) THEN 1230 ELSE IF A1$-"W" OR Al$="w" AND EKB+10 THEN 
LET 11=0+1 ELSE IF Al$="7_" OR Al$="z" AND IDE THEN LET H=D-1 

01210 IF Al$="S" OR Al$=" 5" AND CCA4-20 THEN LET C=C+1 ELSE IF A1$="A M OR Al$="a” AND C>A THEN LET C= 
C-l ELSE IF Al$<>"U" AND Al$<>"w" AND A1$<> H Z" AND Al$<>"z" THEN 1190 
01220 POKE H*FtH=G+64*< 11+B-D )+C-A:F=PEEK( H KPOKE H* 216tG0T0 1190 

01230 A3=A3-15tIF C=X AND D=Y THEN CURS 30*14tPRINT ,, Computer replies that, the"tCURS 30*15 :PRINT"posi 
lion supplied is ship's*"*F0R C=1 TO 30QtNEXT CtGOTQ 370 

01240 A5=FLT( C-X )tA6=FLT(D-Y )*B4=SGR< A5*A5+A6*A6 )tIF A6=0 THEN LET A7=90tG0T0 1280 ELSE LET A7=A5/A6 
:IF A7=0 THEN 1230 ELSE IF ABS(A7)>=*1 THEN 1270 _ T11 _ V1 , rT 

01250 IF A7<=.0174551 THEN LET A7=l ELSE IF A7<=.0349207 THEN LET A7=2 ELSE IF A7<~ ♦ 0^4077 THEN LET 
07=3 ELSE IF A7<=*0699268 THEN LET A7=4 ELSE IF A7<=*0874887 THEN LET A7=5 
01260 IF A7>0 THEN 1230 ELSE LET A7=6tG0T0 1230 


01270 A7=ATAN(ABS(A7)):A7=A7*57.295779 

01230 A5=SGN( A5 )*A6=SGN(A6 )11F A5=l AND A6=-l THEN LET A7=180-A7 ELSE IF Aj—1 AND A6--1 THEN LET 


A7 


=A7+180 ELSE IF A5=-l AND A6=l THEN LET A7=360~A7 
01290 IF A5=0 AND A6=-l THEN LET A7=180 ELSE IF A5= 
01300 CURS 30*14*PRINT"Disfence to"C’VD" is"CF6*:L 


-1 AND A6=0 THEM LET A7=A7+180 

B43tCURS 30*15! PR IN T" D i r e c f ion :i.s"LF6*l A7 3 


01310 IF KEY="" THEN 1310 ELSE 370 


01320 IF A3 <20 THEN 130 ELSE CURS 1,141 PR I NT LA127 32i:CURS 1 * I 4 ! PR I NT" D i r e c f :i. on / D1 s t an ee 2" 

01330 CURS l,15tPRINT EA29 323 

01340 CURS 1*15!INPUT"Co-ordinstes" C * D: IF C<! OF; IK.1 OR C >100 OR D>100 THEN CURS 30* 14 :PRINT"Con.rute 
r detects incorrect date*" tCURS 30*15!PRINT"Plesse re-enter»"tGOTO 1330 

01350 IF AB3< FLT« C-X ) )>10 OR ABS( FLT( D-Y ) )>5 THEN GOTO 3370 ELSE CURS 30* 14:PRINT"Trsnsferr ms to Di 
stance/ "tCURS 30* 15tPRINT"Directior, Mode 1" !H=61441164*( 114B- H M C A 

01360 FOR F=1 TO 500tNEXT FtPOKE H*216!G0T0 1230 

01370 CURS 30*14 tPRINT CA33 323!CURS 30*15!PRTNT LA33 3211!A3=A3-20IGOTO 1240 
01380 A=USR( 523 ) 

01390 FOR G=1 TO :!.0tD=UBR( 570 >!F0R H=1 TO 100!NEXT H ! D=USR( 523 ) t FOR H=1 TO 1.001 NEXT H ! NEXT G JCLStPRT 
NT" The engines of sour Colonial Vi per have exploded* You save" 

01400 PRI NT" your life for the safety of the Colonial fleet,* You will be remembered by all for yo 

ur sacrifice*A minute's silence will be held in your memory* u 

01410 FOR A =3. TO 10001 NEXT At GOTO 1440 

01420 GL.S tPRINT" You have cleared the salary of all Cylon ships*The Council of Twelve has award 

ed you the Star of Cobalci *At a special ceremony * Adam a himsel f*wi 11 pm "5 

0.1430 PRI NT "the medal on you* You are a Colonial Warrior and an officer of the Datt.les far Gal act 

i c a♦ D u ty and ho n o u r c o mes f i r st♦" 

01440 CURS 1*8!PRINT" The Cylon menace has not yet been stopped* Their shies continue to reach fur the 
r into the depths of space*The Cylons must be delayed*so the Baftlesfar"5 

01450 PRINT" and the accompanyins ships can increase the distance between themselves and the 

enemy♦ "\VAre there any Warriors willing to delay the Cylon affacK force 7 " 

01460 A1$=KEY:IF Ai$="Y" HR Al$="y" THEN CLEAR!GOTO 250 ELSE IF A1T="N" OR Al!i="n" THEN CLStFQR A=23 
04 TO 3192!POKE A * 0! NEXT At FOR A=1.28 TO 5003 POKE A*0! NEXT A t NEW ELSE 1460 

01470 CURS .1»14 t PRINT"Please wait*": A2*=CHR< 34 ) ! G=0! FOR D=1 TO 1001A1 $ : = A0$( D ) t F0R C=1 TO 50 t F=BEARCH 

<A1$*A2$»C)*IF F=0 THEN NEXT*C 1480 ELSE LET U( G*0 )=F tU< G* 1 )=DtG=GH tNEXT C 

01480 NEXT I:i:H= 0:F0R 0=1 TO 100tAl$=A0*(B)!F0R C=1 TO 70:F=SEARCH( Al$*"f" *C ):IF F=0 THEN NEXT1490 
ELSE LET T<H*0)=F!T(H*l)=D!H=H+i:NE:XT c 

01490 NEXT D!H=H-1 tG=G--l tCURS 1 * 15 1 PRINT" Star f recording*" tFOR D = 1 TO 1500tNEXT DtCURS 1*15!PRINT"No 
w SAVE ms "t0UTt2tF0R A=1 TO 3! PRINT TA33 33 It NEXT AtPRlNT H m$$ GAME VAR" 

01500 PRINT r. 13 1 3"»"G" *"H"*"E" * "X" *" Y" *" 7." * "A3" * "D3! FOR A=0 TO 31PRINT A4$( A ) t NEXT A 

01510 PRINT LIS 23t FOR A=0 TO H JPRINT T( A * 0 ) tNEXT At PRINT Cl 3 3 3 tFOR A=0 TO H ! PR I NT T( A * .1. ) t NEXT A t PR 

INTCI3 43JF0R A=0 TO GtPRINT U(A*0)tNEXT A 

01520 PRINT LIS 531FOR A=0 TO GtPRINT U< A*1KNEXT At PRINT LA5 63 3LA5 263t0UT*0tG0T0 370 
01530 CURS 30 * 131 PRI NT"Saved Game"t CLEAR t DIM A0( 100 ) * A4(3 ) tIN*2t 0UT4Q!01JT*0 OFF 

01540 INPUT A1 $ 11F Al$( ; 1 * 5 )<>" $$$$ $" AND A lid * 10 )<>"GAMEVAR" THEN 1540 ELSE 0UT#QtCURS 30*13tPF:lNT" 
Loading "!0UT*O OFF 

01550 INPUT A1$ * G * H * E * X * Y ? Z * A3 * B3!FOR A=0 TO 31 INPUT A4$( A ) tNEXT At IF VAL( Al$ ) THEN 1640 ELSE DIM IJ< 
G>1 )*T( H» 1 ) 

01560 INPUT A1$tTF VAL(A1$)<>2 THEN 1640 ELSE FOR A=0 TO HtINPUT T( A*0)tNEXT AtINPUT Al$tIF VAL(A1$) 
03 THEN 1640 ELSE FOR A=0 TO Ht INPUT T( A * 1 )tNEXT A 

01570 INPUT AlttlF VAL(A1$)<>4 THEN 1640 ELSE FOR A=0 TO G t INPUT U(A*0KNEXT AtINPUT Alt* t IF VAL(A1$) 
05 THEN 1640 ELSE FOR A=0 TO Gt INPUT IJ( A r 1 )tNEXT A 
01580 GUT#0tIN*0tCURS 23*15tPRINT"Loaded" 

01590 STRS( 11000 )tPRMT( t ) t FOR A=1 TO tOOt A0$( A )="$$$$$$$$$$$$$$$$$$$$$$$$$♦$$$$$$$$$$$$$$$$*$$$$$<$$ 
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" tNEXT A 

01600 FOR A=0 TO HtB=T(A*1 )tC=T( A*0 )!A1$=A0$( B )tAl$=Al*(* 1*C-1)+"*”+Al$( i C+l )tA0$(B )=Al$tNEXT At FOR 
A=0 TO GtB=U( A* 1 ):C=U(A»O)tAl$=A0$(B)tAl$=Al$( »1»C-1 )+CHR( 34 )fAl$< *C+1 )tA0$(B)=Al$ 

01610 NEXT AiAl$=A0$<Y)tAl$=Al$< * 1*X ) + "!"+A1$( *X + 1 )tA0$(Y )=A1$ 

01620 INVERSEtNORMALtRESTORE 190tA=64016tF0R A=A TO A+95JREAD BJPOKE A>BtNEXT A 
01630 IF KEY="" THEN 1630 ELSE 360 

01640 IN*0tOUT10tCURS 23* 15tPRINT"Tape Unreadable"tFOR A=1 TO ISOOtNEXT AtGOTO 250 


CHASER 


Chaser is for one or two 
players. The computer plays a 
fairly good game as well. 

Richard Larkin 
Dee Why NSW 


00100REM CHASER 
00110REM By Richard Larkin 

00120 CLS • PR I NT//' 1 In this same you may Play me or a f r i end. "/"The idea of the 
same .s to avoid hittins anything wh i te. "f-"One Player uses then W, A, St Z diamond 
for movement and the" 

00130 PRINT"other uses the I,J.K*M diamond. '7"ftny key to continue..” s I=USR<327 

74) 

00140 CLEAR s RESTORE : POKE162.30 : P0KE1E3,128 : CLS : PRINT///"ONE OR TWO PLA 
VERS (1 or 2)" : FOR X=1T09399 : Klf-KEY : IF X<20 OR Klf-"" THEN NEXT X ELSE IF 
K1 $ = "2" THEN 350 

00150 SDB : CLS : PRINT// : INPUT"SKILL LEVEL 1 TO 5"H1 : IF HI<1 OR Hl>5 THEN 1 
50 ELSE LET H1=1-H1/10 


00160 CLS : LORES : X=32 s Y=20 : A=2 s B=15 : C=1 : U-0 : D=1 : M-0 s PLOT 1,0 
TO 75,0 TO 75,46 TO 1,46 TO 1,0 


00170 SET X,Y : IF POINT(A,B) THEN PLAY20,3 : GOTO 250 ELSE SET A,B 

001S0 P=P+1 s P0KE257, 1 : Klf-KEY : IF Klf="A" THEN LET D—1 r M-0 ELSE IF Klf-" 
S" THEN LET D=1 : M=0 ELSE IF Klf="W" THEN LET D-0 : M=1 ELSE IF Klf-"Z" THEN LE 
T D=0 : M—1 

00190 A-A+D s B-B+M : X-X+C s Y-Y-MJ : IF (X-AANDY-B) OR < X-A-DANDY-B-fl) THEN PLA 
Y20,3 * GOTO 250 

00200 IF X <2 THEN LET X=75 ELSE IF X>75 THEN LETX-2 ELSE IF Y(1 THEN LET Y-46 EL 
SE IF Y> 46 THEN LET Y=1 


00210 IF RND <H1 THEN 220 ELSE ON INT(RND*2+1) GOSUB 290,320 
00220 IF RND<9 THEN, 170 ELSE READC,U ! IF U=10 THEN RESTORE : U-0 
00230 GOTO 170 

00240 DATA -1,0, 1, 0, 0, 1, 1,0, 0,-1,-1,0, 0, 1, 1, 10 
00250 CURS 39,8 : PRINT"YOU HAVE BEEN HIT" 

00260 CURS 39,9 : PRINT"TOTAL SCORE-"P 

00270 CURS 39,10 s PRINT"HIT ANY KEY TO PLAY AGAIN" 

00280 I-USR(32774) » RUN 

00290 IF X<A+D*3 THEN 300 ELSE LET C—1 : U-0 
17 . 

00300 IF X)A+D*3 THEN 310 ELSE LET C«1 : U-0 
00310 IF X-A THEN 320 ELSE RETURN 
00320 IF Y<B+M*3 THEN 330 ELSE LET U—1 : C-0 
00330 IF Y)B+M*3 THEN 340 ELSE LET U-l : C=0 
00340 IF Y-B THEN 290 ELSE RETURN 

00350 INPUT"SPEED LEVEL <0 TO 50)"S « S-50-S : IF S<0ORS)50 THEN 350 

00360 CLS : LORES : PLOT 0,0 TO 127,0 TO 127,47 TO 0,47 TO 0, 0 : X-0 : Y=10 : C= 
127 : U-37 : D*1 : F—1 : H-0 : J*0 s Klf-KEY 

00370 SET X,Y s SETC.U : X-X+D : C-C+F s Y-Y+H : U-U+J : IF POINT(X.Y) OR POINT< 
C,U) THEN 410 


00380 Klf-KEY s IF K1*«"W' THEN LET H-l : D-0 ELSE IF K1*="I" THEN LET F=0 : J=1 
ELSE IF K1*-"Z" THEN LET H—1 s D-0 ELSE IF K1*="M" THEN LET F=0 s J=-1 

00390 IF K1*="A" THEN LET D—l : H=0 ELSE IF K1$-"J" THEN LET F=-l : J=0 ELSE IF 

K1*="S" THEN LET D=1 : H-0 ELSE IF K1*="K" THEN LET F=1 s J-0 

00400 FOR T-0TOS : NEXT T : GOTO 370 

00410 PLAY24,10 : IF POINT(X.Y) AND POINTCC,U) THEN LET E1*="S AT BOTH ENDS HAVE 
LOST." ELSE IF POINT(X.Y) THEN LET El*=" ON THE RIGHT HAS WON!!!" ELSE LET Elf- 
“ ON THE LEFT HAS WON!!" 

00420 CLS s PRI NT///"THE GAME HAS ENDED AND THE PLAYER"; : SPEED255 s PRINT Elf 
: SPEED0 : PRINT//"TYPE ANY KEY TO START AGAIN." : I-USRC32774) : RUN 


JOYSTICK TEST 

This program is an adaptation 
of testing your joystick which 
appeared in the Microbee En¬ 
gineering Notebook. I have in¬ 
cluded the “print x print” to 
show your position on the 
screen. If you press the fire but¬ 
ton the screen clears and you 
start again from your last posi¬ 
tion. 


Rod Blockely 
Mundingburra QLD 

00100X-235:S-128:REM c*nttr icr*»n 
00110HIRES 

00120OUT1,25S:REM initialise port 

00130A*IN(0):REM read joystick on port 0 

001d0A«143-(AAND143)SREM convert to positive logic 

00130B*-(AAND1):IFBTHENSETX,S:S-S+l:CURSl,1:PRINT’X'XJPRINT’S'S 

00160B--(AAND2):1FBTHENSETX,S:S-S-l:CURS1,1:PRINT"X*X:PRINT“S"S 

00170B—(AAND4) : IFBTHEN8ETX, S: X*X-1: CURSJ , 1: PRINT* >< *X: PRINT“S*S 

00180B--(AAND8):IFBTHENSETX,S:X*X+1:CURS1,11 PRINT"X"X:PRINT*S*S 

00190B--(AAND128):IFBTHENGOTOl10 

002001FA-0THEN6OTO130 

00210GOTO130 


GRAPHER 


Grapher plots a two dimen¬ 
sional graph for values -5 to 
+ 5, and then lets you change 
the formula. It can also plot in 
three dimensions. 

Richard Larkin 
Dee Why NSW 


“ 00100 FN1=SIN(#) 

00110 REM PLOTER 

00120 REM By Richard Larkin 

00130 P0KE162» 30 : P0KE1E3, 128 : CLS : PRINT*** " GRAPHER"/"2 or 3 dim 

ensions (Type 2 or 3)" : K1$=KEY 

00140 K1*=KEY s IF Kl$="2" THEN 200 ELSE IF Kl*="3" THEN 150 ELSE 140 

00150 CLS : PRINT// "Input step X INPUTS1 : INPUT "Input step Y "B1 : INPUT 

"size (50 to 150)"A1 

001S0 ONERROR GOTO 240 : SD4 : CLS : HIRES : Dl=.0327 

00170 FOR HI=-AlT0A1 STEP B1 : A2=FLT( INT( .5+SQRC A1*A1-H1*H1)>) : FOR B2=-A2T 

OA2 STEP SI s C2=S0R( B2+B2+H1 *H1)*D1 : D2=FN1 ( C2) : D3=D2+20 

00180 Xl=B2+( Hl/Bl) : Yl=D3-( Hl/Bl) : X=INT< .75*X1) : Y=INTC .B*Y1> : SET X+2 
55» Y+70 s PLOTR X+255,Y+E9T0X+255, Y+E0 : NEXT B2 : NEXT HI 

00190 CURS 5,5 s PR INT"FINISHED" : GOTO 190 

00200 CLS s HIRES : SD4 : FOR X=-100TO100 STEP 20 : FOR Y1=-100TO100 STEP 20 : S 
ET 255+X, INT( Yl*.E3)+12E : NEXT Y1 : NEXT X : CURS E5 : LIST 100 

00210 FOR X1=-5T05 STEP .1 : IF X1O0 THEN LET Y1=FN1 C XI) : CURS 28,14 : PRINT 
XI" ",Yl" " : IF Yl<5.1 AND Yl>-5.1 THEN INVERT INTC X1*20+255),INT ( Yl* 

12.G+128) 

00220 NEXT XI 

00230 IF KEY="" THEN 230 ELSE POKE 220,0 : CLS : PRINT/// "Retype The formula Pr 
ess * RETURN’ . "/"Then press ‘RESET’" : EDIT 100 


00240 CURS 5,5 s PRINT "FLUNK" : GOTO 240 



EINSTEIN II 

****** EINSTEIN II ****** 


This program was written on the 
Microbee and uses less than 
5K! Einstein II is a game of re¬ 
membering sequences as they 
get longer and longer. The 
game has five levels of diffi¬ 
culty. There is a three second 
time delay for each keystroke 
so you must think quickly. 

The program has some un¬ 
necessary documentation which 
you may want to omit. It ap¬ 
pears after line 4000. Of course 
all ‘REMS’ should not be typed. 
If the four keys used on lines 
580 to 610 (Y,U,G,H), prove to 
be awkward simply alter them! 

G. Adcock 
Oak Park NSW 


OOOIO REM#**## WRITTEN BY GREG ADCOCK ***** 

00020 REM***** FOR PUBLIC USE ***** 

00030 REM##**# 3/6/83 ***** 

00040 REM***** USES ABOUT 3K !! ***** 

00050 REM********************************** 

00060 REM#*#***#**#*****#*****#**#**#**#*#* 

00100 T-OSDIMDl(40)SDIMAl(40) 

00110 G0T02000 

00120 T-0 

00130 T-T+l 

00140 PLAY 0,4 

00150 J-2SK-1 

00160 IF T-R THEN 730 

00170 IFT>6 THENLET J-l 

00180 IFT>11 THENLET J-l 

00190 IFT>11 THENLET K-0 

00200 G-INT(RND*3) 

00210 IF G-l THEN LET Al(T)-270 
00220 IF G-2 THEN LET AKTJ-320 
00230 IFG-3 THEN LET Al(T>-370 
00240 IF G-4 THEN LET A1(T>« 420 
00250 IF G-00RG-3 THEN 200 
00260 G0T0470 

00270 cls:curs io,8 :pcg:print * aaaaaaaaaaaaaaaaaa*:cursio, s: 
PRINT“BBBBBBBBBBBBBBBBBB":CURS 10.6! PRINT'CCCCCCCCCCCCCCCCC 

c B :CURS 10,7:print-dddddddddddddddddd- 

00280 VAR(X,Y):PLAY 2,X 
00290 IFY-1 THEN PLAY 0,1 
00300 CLS 
00310 RETURN 

00320 CLS:PCG:CURS30,5:PRINT*DDDDDDDDDDDDDDDDDDD*:CUR830,7:P 
RINT'CCCCCCCCCCCCCCCCCC-ZCURS 30,8:PRINT * AAAAAAAAAAAAAAAAAA * 
:CURS30,6:PRINT a BBBBBBBBBBBBBBBBBB* 

00330 VAR(X,Y):PLAY10,X 
00340 IFY-1THEN PLAY 0,1 
00330 CLS 
00360 RETURN 

00370 cls:pcg:cursio,io:print b bbbbbbbbbbbbbbbbb b scursio,ii:p 

RINT-CCCCCCCCCCCCCCCCCC":CURS10,13:PRINT"AAAAAAAAAAAAAAAAAA * 
:CURS10,12:PRINT a DDDDDDDDDDDDDDDDDD * 

00380 VAR(X,Y)SPLAY 17,X 
00390 IFY-1 THEN PLAYO,1 
00400 CLS 
00410 RETURN 

00420 CLSS PCGS CUR830,10S PRINT• AAAAAAAAAAAAAAAAAA •!CURS30.13: 
print b bbbbbbbbbbbbbbbbbb b :CURS30,12:PRINT"CCCCCCCCCCCCCCCCCC 
B :CURS30.11:PRINT"DDDDDDDDDDDDDDDDDD* 

00430 VAR(X,Y):PLAY 24,X 

00440 IF Y—1 THEN PLAY 0,1 

00430 CLS 

00460 RETURN 

00470 W-0 

00480 W-W+l 

00490 IF W>T THEN 320 

00300 GOSUBIJ,K11NT(A1(W)) 

00310 G0T0480 
00320 8-0 
00330 8-1+8 


Minder is like master mind ex¬ 
cept you can choose the 
number of columns, colours and 
guesses you get. 

Richard Larkin 
Dee Why NSW 


00100REM MINDER 

00110REM By Richard Larkin 

00120 CLS s PRINT/" We l come to Mi rider"/" You wi I I be asked how many columns you wi 
sh then colours"/"(represented by letters A-Z) then how many guesses." 

00130 PRINT"You must then type in your guess for the computers hi den code."/"Bac 
k space may be used. "/"The rules are the same as for Master-m i rid. "//" Any key to 
start..." 5 I=USR(32774) 

00140 POKE220,63 «" INVERSE s CLS s POKE162* 30 : P0KE163, 128 : CURS 207 16 s PRINT 
"MASTER-MIND. " “ : NORMAL : FOR X = 1T07 s FOR Y=1TO60+X*X*3 : NEXT Y : PRINT s NEX 
T X 

00150 POKE220?0 • CLEAR s INPUT"How many columns would you like (1 to 13) ?"I7* 

: C=INT<VAL<I7*)) : IF 0 13 OR C<1 THEN 150 

00160 INPUT"How many different colours (2 to 26) ?"I7* : L=INT<VAL(I7$)) : IF Lb 
26 OR L<2 THEN 160 

00170 INPUT“How many guesses would you like Cl to 13) ? M I7* : 0*INT<VAL(I7*>) # 
IF G <1 OR G>13 THEN 170 

00180 DIM CKOiGKO.WKC) s D=0 s CLS s UNDERLINE : CURS26* 1 : PRINT H Master-rli 
nd." s NORMAL : FOR X=1T0C : Cl*<X)=CHR<INT(RND*FLT(L)+65)) J NEXT X 


118 




00940 IFG-T♦1 THEN GOTO 130 
00990 8-0 

00960 8-8*1:IF 8-420 THEN 740 
00970 K18-KEY: IFK18-"" THEN960 
00980 IFK18—"Y" THEN680 
00990 IF K1•—" U " THEN 660 
00600 IF K1•—"G■ THEN 700 
00610 IFK18- B H B THEN 720 
00620 G0T0960 
00630 REM 
00640 REM 
006S0REM 

00660 Rl-320:IFR1-A1I8)THENGOSUBIJ,KJ320 

00670 R1—320:IF R1<A1(8) OR R1>A1(8) THEN 740EL8EG0T0930 

00680 R2-270:IFR2-A1(8) THEN GOSUBIJ,K3270 

00690 R2—270*IF R2<A1(8)0RR2>A1 8) THEN 740EL8EG0T0930 

00700 R3-370SIF R3-A1(8) THEN GOSUBIJ,K3370 

00710 R3—370!IF R3>A1(8)0R R3<A1(8)THEN740EL8EG0T0 930 

00730 Rl«42QiIEW1-A1(B> THCNOOSUB IJ,K1420 

00730 Rl—420:IF R1<A1(8)0R R1>A1(8) THEN 740EL8EG0T0 930 

00740 NORMAL:PRINT B WRONG B :PLAYO,8:GOT0760 

00790 NORMAL:T-R-l: GOTO 3000 

00760 IF T>-E THEN 780 

00770 NORMAL:G0T0820 

00780 E-T 

00790 FOR 1-1 TO W 
00800 01(I)-Al(I) 

00810 NEXT I 

00820 NORMAL:INPUT" **** '1* TO CONTINUE...’2’ TO SEE BEST 

SCORE... OR '3’ TO CHANGE LEVEL8... #*#*" PI*:CLS:IFP19-"1 

B THEN G0T0930 

00830 IFP18—"2* THEN870 

00840 IFP18—"3*THEN860 

00890 G0TtJ820 

00860 G0T02030 

00870 T-Oil-O 

00880 I—I♦1 

00890 PRINT I 

00900 G08UB11,111NT(Dl(Il) 

00910 IFI>E-1THEN 820 
00920 G0T0880 
00930 T-0: GOTO130 
01000 P—63488*69416 
01010 FOR A-P TO P+1644-1 
01020 READS:POKEA,B 
01030 NEXTA 

01040 DATA 248,248,248,248,248,248,248,248,248,248,246,248,2 
48,248,248,248 

01090 DATA 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7 
01060 DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 
01070 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 
01080 G0T02030 
01090 CL8:NORMAL 
02000 NORMAL:CL8 

02010 PRINT[A63 1441\\ B MIKE ROBEE PRESENTS .... B \ B 
EIN8TEIN(II) B \\t A63 1441 
02020 GOTO 4000 

02030 INPUT"WHICH LEVEL WOULD YOU LIKE,1<EASIEST),2,3,4,9 OR 
A RANDOM NUMBER (X) ."Wl* 

02040 CLS 

02090 IFW18—* 1" THEN LET R-7 
02060 IFW1*-"2"THEN LET R-10 


02070 IFW1*-"3"THENLETR-14 

020801FW18— B 4 B THENLETR—21 V- 

020901FW1•-"9 B THENLETR-33 

021001FW1•—"X B ORW1•—" x "THEN LETR-INT<RND#29> 

02110 00T0120 

03000 CUR8 20,8!PLAY 16I16|20|23|0|20|23,8:PRINT B YOU’VE WO 
N ! • " 

03010 NORMAL:CUR88,9:PRINT* AND I'M JOLLY WELL PLEASED TO SE 
E IT TOO." 

03020 PCG 
03030 G0T0760 
04000 PRINT B He11o,* 

04010 PRINT8PC17) B I Mould Ilk* to toll you a tew things abou 
t this program"\"to asks It ssslsr to run. It is not sn sssy 
gains so don’t be"\"decalved." 

04020 FORI-1 TO 3000:NEXTI:PLAY10,4 

04030 PRINT8PC17)"It is such Ilka ths nor# sxpsnslvs gsss 'E 
IN8TEIN’ <only"\"auch better!'!)" 

04040F0RI—1 TO 2600:NEXTI:PLAY 10,4 

04090 PRINT8PC17)"If you alrsady know about this gas#, than 
prass 'S’ B \"to gat startad. Prass 'I* to racalva sora In-form 
at ion.* 

04060 FORI-lT029OO:NEXTI:PLAY19,4 
04070 L18—KEY:IFL1*—" B THEN 4070 
04080 IF L18—"8“ THEN lOOO 
04090 IF L18- B I B THEN 4110 
04100 G0T04070 

04110 NORMAL:CL8:INVERSE:PRINT"THERE ARE 9 LEVELS OF PLAY |1 
BEING THE EASIEST"\"AND 9 THE HARDE8T.■ 

04120LETA38-"REPETITI0N8":NORMAL:PLAYO,20:CURS 14,3:PRINT"1 
- SIX "*A3* 

04130CUR814,9:PRINT"2— NINE "*A3* 

04140CUR814,7;PRINT"3— THIRTEEN "*A3* 

04190CUN814,9:PRINT"4— TWENTY "*A3* 

04160 CUR814,11:PRINT"9— THIRTY-TWO "*A3* 

04170 -CUR814,13:PRIMT"X- RANDOM NUMBER CHOSEN SY THE COM 

PUTOR,":CURS 14,14:PRINT"RANGING FROM 1 TO 28!!!" 

04180 CUR830,16:INPUT"PRE88<RETURN>"84* 

04190 IFQ48—"" THEN4200 

04200 CLS:PRINT" Tha obi act of tha gams Is to succasslu 1 1 y 
rapaat tha tuna"\"and pattern tha computor glvas you.Thara a 
ra four different"!" ant as asch Mlth its own 'squara’"| 

04240 PRINT" and you oust try to "\"match thaw using tha tol 
lowing kays..." 

04720 P.8UITLMIMT" WERT "»: INVERSE : PR I NT 

" Y"|:NORMAL:PRINT" "I:INVERSE:PRINT’U "|:NORMAL:PRINT" I 



d f "i: inver8e:print b 

"H " I :NORMAL:PRINT" J K 


"I:NORMAL:PRINT" "|:INVERSE:PRINT"H "I:NORMAL:PRINT" J K 

L " 

04240PLAY0,49112,4:PRINT:PRINT" THIS IS NOT ALL THOUGH." 
04290 CURS30,16:INPUT’PRESS <RETURN>"Y4* 

04260IF Y48—"" THEN 4270 

04270CLS:PLAY14,4:PRINT" You also have to raply to aach nota 
within a tine 1lm1t!"\■Th1s limit is between 3 fc 4 seconda- 
so don’t ralax!!!" 

04280 PRINT "Tha gama also gats iasttr tha •further you gat i 
nto lt."\" SO THIS IS MIKE ROBEE WISHING YOU GOOD LUCK IN YOU 
ft. VENTURE-’ 

04290 INPUT" <RETURN) TO START..."K6S 

04300 IF K6S—"" THEN 1000 


00190 S=25-<C+3)/2 : A=S+C+3 : CURS A, 2 : PRINT"Bi'ack White” s FOR X=ST0S+C+3-3 
STEPS s CURS Xi2 : PRINT"?" s CURSX.3 : PRINT"#" : FOR Y=4T03+G : CURS X,Y : PR 
I NT"."i s NEXT Y : NEXTX 

00200 U=1 s B=0 s W=0 s Klt=KEY : CURSS+U+3-4, D+4 : PRINT" "; 

00210 P0KE257.1 s K1»=KEY : IF ASC<K1$>=8 AND U>1 THEN LET U=U-1 ! CURSS+U+3-3.D 
+4 s PRINT"."; : CURSS+U+3-4,D+4 : PRINT" "5 : GOTO 210 ELSE IF K1*<"0" OR K1*>C 

HR <L+E4 > THEN 210 

00220 G1*<U)=K1* : CURS S+U+3-3,D+4 : PRINT Kit; : U=U+1 : CURS S+U+3-4, D+4 : PR 
INT" "; : IF U<C+1 THEN 210 ELSE FOR X=1TDC : IF Cl*CX)=G1*<X> THEN LET B=B+1 

00230 NEXT X : IF B=C THEN 250 ELSE FOR X=1T0C : W1$<X)=C1$<X) : NEXT X : FOR X= 

i TOC : FOR Y=1T0C : IF G11<X) <> W11CY) THEN NEXT Y ELSE LET W=W+1 : W1$<:Y) = "" : 
NEXT+Y 240 

00240 NEXT X : W=W-B : CURS A+l.D+4 : PRINT B; : CURS A+S,D+4 : PRINTW; : D=D+1 
: IF D<G THEN 200 

00250 PQKE220.S3 : FOR X=1TDC s CURS S+X+3-3,2 s PRINT Ci*(X) : PLAYINT<<FLT<OSC 
<C1*<X)))-B4>/1.13)+1 : NEXT X : I=USR<32774) : CLS : PRINT+++ 

002S0 IF B=C THEN PRINT"Congratuiations you have guessed the secret code !" ELSE 
PRINT"Sorry you have not guessed correct." 

00270 PR I NT"Type any key to Play again." : I=USRC32774) : CLS : PRINT/// : GOTO 
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The program simply calls up a 
machine code routine every 
time a character is printed. This 
is a very useful program for typ¬ 
ing or whenever a character is 
printed such as a BASIC error 
or listing a program. It will pro¬ 
duce an audible signal for every 
character printed. 

All the program does is print 
the relevant character for the 


key pressed then produce a 
sound. To change the tone and 
length of the note alter the 90 
in line 140 for length and the 20 
for the tone. 

I find it much better for typing 
to hear a nice sharp ‘beep’ 
rather than a ‘clunk’. 

Alistair Ferrier 
Coleraine Vic 


00100 FOR A=15000 TO 15022 
00110 READ B 

00120 POKE A,B 

00140 DATA 71 ' 205 ' 1 ^'^ 2 ?; 6 ;!5’2n 2 2'5 2 32'240 f 201 

SSilS ReS A 2 ^Change output v4ctor 4o'juip to MC routine 

SS15S REM ever? time a character has to be prrnted. 

00180 POKE 178,152:POKE 179,58 

So S To restore type -POKE 178.47.POKE 179.166* 


PASSWORD 


This little routine discourages 
unauthorized activity. 

On violation of this 
‘Password’ sub-routine the sing¬ 
ular features of the APF cause 
the keyboard to be disabled. 

BREAK will terminate the 
audio alarm (Line 9030) but 
entry to the high resolution 
mode in this fashion (Line 9020) 
permanently locks out keyboard 
response. The only way out is 
to power down and re-load the 
program. 

Obviously you would not use 
this approach unless you can 
retrieve from disc or tape what 
you were working on. The 
catastrophic effects of a 
password violation will perma¬ 
nently discourage fiddly fingers 
however! 


REM GOTO t 

•IP. INLINE 

DIM i$( 1 > ; 

r, i T ft !“■<£(’ ‘ 

PGM CS I 
I$= KEY* <8 

3 PRSSWOI 
): IF I> 

S*=I*-L= LE 

ft '"-«s 

KEYS <0 

7 r~ r 

i. 1 i. -0 

L >*"!'!# 

IF CSOI*)-’ 1 

Mnf'.RE" T! 

i C0TO 33 

Cj M 1~‘. Cl : 


dim m. 

THEN 38 

” THEN 5 

P.’FT! !RN 
’ L TIE 


jQSUB i@ 


J. Elkhorne 
ChigwellTas 




























MISSION HUPOSSBLE 


10 RXM Mission Impossible, 

15 REM written by Peter Fallon. 

49 REM. Data for plane tail,CHR$( 192) 

50 DATA 192,240,252,255,255,255,255,255 

54 REM Plane body,CHR$(193) 

55 DATA 0,0,0,0,255,255,255,255 

59 REM Plane nose,CHR$(194) 

60 DATA 0,0,0,0,192,240,252,255 

64 REM Building,CHR$(195) 

65 DATA 255,255,255,255,255,255,255,255 

69 REM Base,CHR$(196) 

70 DATA 170,170,85,85,170,170,85,85 

74 REM Bomb left,CHR$(197) 

75 DATA 2,2,1,3,7,7,3,1 

79 REM Bomb right,CHR$(198) 

80 DATA 64,64,128,192,224,224,192,128 

84 REM Explosion,CHR$(199) 

85 DATA 204,204,51,51,204,204,51,51 

89 REM Bullet left,CHR$(200) 

90 DATA 0,0,1,3,3,1,0,0 

94 REM Bullet right,CHR$(201) 

95 DATA 0,0,128,192,192,128,0,0 

99 REM Gun left,CHR$(202) 

100 DATA 1 ,3,7,15,31 ,255,255,255 

104 REM Gun right,CHR$(203) 

105 DATA 128,192,224,240,248,255,255,255 

109 REM B(5,2) holds the location of the enemy guns 

110 RESTORE : DIM B(5,2) 

120 FOR Z = -512 TO -417 : READ A : POKE Z,A : NEXT 
130 PRINT CHR$(12);TAB(20); ” r --V' 


135 PRINT TAB(20);”1 Mission |” reier, sena i 

140 PRINT TAB(20);”| Impossible |” 

145 PRINT TAB(20) -»" 

160 PRINT : PRINT TAB(40);”By Peter Fallon” 

170 PRINT : PRINT M Land your plane Before you run out of fuel.” 
180 PRINT : PRINT”Bomb out the buildings in your way” 

190 PRINT : PRINT”and avoid enemy fire!” 

200 PRINT : PRINT”Use the keys :” 

210 PRINT : PRINT” A for up” 

220 PRINT : PRINT” Z for down” 

225 PRINT : PRINT” And the keypad numbers :” 

230 PRINT : PRINT” 1 to drop a bomb” 

240 PRINT : PRINT” 2 to drop a cluster bomb” 

250 PRINT : PRINT” 3 to fire forward guns” 

260 PRINT : PRINT”Do you want bomb trajectory to be (A)ngled or” 

261 PRINT : PRINT”(S)traight ?” 

265 REM Data for GET $ routine 

269 DATA 205,21,224,194,250,223 

270 DATA 205,9,224,50,255,0,201 
275 FOR Z = 240 TO 252 : READ A : POKE Z,A : NE2 

280 POKE 260,240 : POKE 26l,0 : Z=USR(0) 

281 IF PEEK(255) = 0 THEN 280 

282 IF PEEK(255) = 83 THEN T=0 : GOTO 290 

283 IF PEEK(255) = 65 THEN T=2 : GOTO 290 

285 GOTO 280 
290 GOSUB 1400 
300 IF AA=1 THEN 370 
310 PRINT CHR$(l2); 

315 REM Set random buildings 
320 FOR Z = 0 TO 31 
330 A=INT(RND(l)*10+1) 

340 FOR W = 28 TO 28-A STEP-1 
350 J =Z*2+W*64-3968 s POKE J,195 2 POKE J+1,195 
360 NEXT : NEXT 
365 REM Set base 

370 FOR Z = 0 TO 63 : POKE Z-2112,196 : NEXT 
375 REM Set random location of enemy guns 
380 FOR Z = 1 TO 5 


You are flying a bomber over an 
enemy installation and your fuel 
is running low. You must try to 
land - and to do so must bomb 
most of the buildings below you 
that are in your way. If you hit 
a building your plane explodes, 
if you run out of fuel you crash. 
Beware of enemy gunfire as 
well. 

The program uses the keys: 
A, Z and 1,2,3 (on the keypad 
only). If you want to generate 
your own landscape you must 
give the heights (1-9) of each of 
the 32 buildings. They are 
drawn as you go. 

The machine program (given 
by the data) generates 16 bytes 
(which are stored in locations 
32 to 47). If you record what 
happens when a particular key 
is pressed ( or a combination of 
keys!) you will find which bytes 
must be checked for different 
keys. (Note that the data given 
above is the first 17 bytes of the 
machine program given). 

If you think that the game as 
given is too easy or hard then 
change line 420 to suit (that is, 
increase/decrease the number 
of clusters or forward fire left or 
the fuel allowed). 

Peter Fallon 

Peter, send us your address! 


















390 A*I*f(RND(l)*32) s B(Z,l)=A*2 940 FOR Z = 1 TO 5 

400 IP FEEK(A*2-2112)=202 THEN 390 950 IF B(Z, 1 )< ;E OR B(Z. 2) =1 THEN 970 

405 POKE A*2-2112,202 : POKE A*2-2111,203 960 POKE E-2112,32 j POKE E-2111,32 : B(Z,2)=1 : 

410 NEXT EG*EG+1 

415 REM Set variables s X,Y=plane co-ords;FU=fuel left 970 NEXT : B=0 : IP C*0 THEN 450 

416 REM CC=clusters left;FG=forward fire left 980 M .3 : GOTO 1020 


420 X=2 s Y=1 : A=0 : B=0 s CC=5 : FG=5 : D=0 : 
FU=300 : EF=0 s G=0 

430 J=X+Y*64-3968 : POKE J-2,192 : POKE J-1,193 

440 POKE J.193 s POKE J+1,194 

445 REM Start game : Scan keyboard 

450 POKE 260,0 s POKE 261,0 : Z=USR(0) 

460 IF PEEK(255)=0 THEN 700 

470 ON PEEK(255) GOTO 490,500,510,520,530 

490 A=-1 : FU=FU-10 : GOTO 700 

500 A=1 s GOTO 700 

510 IF B=1 THEN 700 

515 B=1 : GOTO 620 

520 IF B=1 THEN 700 

521 IF CC=0 THEN 700 

522 B=1 : CC=CC-1 : C=1 
525 GOTO 620 

530 IF FG=0 THEN 700 

535 FG=FG-1 : XX=X+2 : YY=Y 

536 IF XX =64 THEN XX=0 : YY=YY+1 
540 IF YY=29 THEN YY=28 

550 FOR Z = 1 TO 10 

555 J =XX+YY*64-3968 

560 POKE J ,45 : POKE J+1,45 

580 POKE J,32 : POKE J+1,32 

590 XX=XX+2 : IF XX =64 THEN XX=0 : YY=YY+1 

600 IF YY=29 THEN YY=28 

610 NEXT : GOTO 700 

620 IF Y<>28 THEN 670 

630 FOR Z = 1 TO 5 

640 IF B(Z,1)=X AND B(Z,2)=0 THEN B(Z,2)=1 : 

EG=EG+1 : GOTO 660 
650 NEXT : B=0 : C=0 s GOTO 700 
660 POKE X-2112,32 : POKE X-2111,32 : B=0 : 0=0 : 
GOTO 700 

670 J=X+(Y+1)*64-3968 : IF J=195 THEN D=1 

680 E=X s F=Y+1 

690 POKE J.197 : POKE J+1,198 

700 J=X+Y*64-3968 : POKE J,32 : POKE J+1,32 

710 POKE J-2,32 : POKE J-1,32 : POKE 255,0 

720 X=X+2 : IF X=64 THEN X=0 : Y=Y+1 : FU=FU-10 

725 Y=Y+A s A=0 

730 IF Y 28 THEN 750 

740 Y=28 : G=G+1 : IF G=32 THEN 1380 

750 J=X+Y*64-3968 : IF PEEK(J)=195 THEN POKE J.199 : 

POKE J+1,199 s GOTO 1260 
760 POKE J-2,192 s POKE J-1,193 
770 POKE J.193 : POKE J+1,194 
780 PRINT CHR$(l7)i"Fuel left ='';FU;" 

Clusters left =";CC; 

785 PRINT" Forward fire left =";FG 
790 IF FU=0 THEN 1200 
800 IF EF=1 THEN 850 

810 EF=1 : IF EG=5 THEN EF=0 : GOTO 910 
820 W=INT(RND(l)*5+1) : IF B(W,2)=1 THEN 820 
830 W=B(W,1) : U=28 
840 GOTO 870 

850 J =W+U*64-3968 s POKE J.32 : POKE J+1,32 
860 U=U-1 

870 IF U>Y THEN EF=0 : GOTO 910 
890 IF W=X AND U=Y THEM 1260 
900 J=W+0*64-3968 : POKE J.200 : POKE J+1,201 
910 IF B=0 THEN 450 

920 J=E+F*64-3968 : POKE J,32 s POKE J+1,32 
930 F=F+1 : IF F 29 THEM 990 


990 J-*+F*64-3968 : IF PEEK(J)=195 THEM 1020 
1000 POKE J,197 : POKE J+1,198 
1010 GOTO 450 

1020 J=E+F*64-3968 s POKE J.199 : POKE J+1,199 
1030 POKE J.32 : POKE J+1,32 
1040 IF C=1 THEM GOSUB 1060 

1050 F=F+1 : D=D+1 : IF F=28 OR D=4 THEM B=0 : C=0 : 

D=0 : GOTO 450 
1060 IF E=0 THEM 1100 
1070 POKE J-2,199 : POKE J-1,199 
1080 POKE J-2,32 : POKE J-1,32 
1090 IF E=62 THEN RETURN 
1100 POKE J+3,199 : POKE J+2,199 
1110 POKE J+3,32 : POKE J+2,32 
1120 RETURN 

1195 REM Crash and explode routine 

1200 J=X+Y*64-3968 : POKE J-2,32 : POKE J-1,32 

1210 POKE J,32 : POKE J+1,32 

1220 Y=Y+1 s IF PEEK(J+64)>194 then 1260 

1230 POKE J+62,192 : POKE J+63,193 

1240 POKE J+64,194 : POKE J+65,194 

1250 GOTO 1200 

1260 FOR Z = Y-2 TO Y+2 

1270 FOR W = X-2 TO x+2 

1280 POKE W+Z#64-3968,210+INT(RND( 1) *5+1) 

1290 NEXT : NEXT 
1300 FOR Z = 1 TO 100 

1310 POKE -368+INT(RND(l)#40+l),INT(RND(l)*256) 

1320 NEXT : PRINT : PRINT"You lost!!" 

1330 PRINT : PRINT"Do you want to play again ? Y/N" 
1340 POKE 260,240 : POKE 261,0 : Z=USR(0) 

1350 IF PEEK(255)=0 THEN 1340 
1360 IF PEEK(255)=89 THEN RUN 
1370 END 

1380 PRINT : PRINT"You landed!! Congratulations!!" 
1390 GOTO 1330 

1395 REM Routine to let you make your own landscape 
1400 PRINT s PRINT" Do you want (R)andom buildings or 
(Y)our own?" 

1410 POKE 260,240 : POKE 261,0 : Z=USR(0) 

1420 IF PEEK(255)=82 THEN AA=0 : RETURN 
1430 IF PEEK(255)=89 THEN 1440 
1435 GOTO 1410 

1440 PRINT CHR$(12);"Give height (1-9)" 

1450 FOR Z = 0 TO 31 

1460 POKE 260,240 : POKE 261,0 : Z=USR(0) 

1470 IF PEEK(255)=0 THEN 1460 

1480 IF PEEK(255)<49 OR PEEK(255)>57 THEN 1460 

1490 A=PEEK(255)-49 

1530 FOR W = 28 TO 28-A STEP-1 

1540 J=z*2+W*64-3968 : POKE J,195 : POKE J+1,195 

1550 NEXT : NEXT 

1560 AA=1 : RETURN 


0000:01 FE 10 LD BC.10FE keyboard scan routine 

0003:21 2F 01 LD HL.012F ;Results stored in loca 

0006:ED 41 OUT (C),B : 0100-012F. tions 

0008:ED 78 IN A,(C) 

OOOA:F 6 EO OR EO 

0000:2F CPL 

000D:77 LD (HL),A 

000E:2B DEC HL 
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Sorcerer 

[y 000F 
^ 0011 
0014 
0016 

10 

3A 

FE 

02 

F5 

21 

04 

IF 


0019 

3E 

01 

immm 

001 B 
001E 
001F 

32 

C9 

FE 

FF 

02 

IMPOSSIBLE 

0021 

0024 

C 2 

3E 

2A 

02 


0026 

32 

FF 


0029 

C9 



002A 

3A 

2C 


002 D 

FE 

02 


002F 

02 

38 


0032 

3E 

03 


0034 

32 

FF 


0037 

C9 



0038 

3A 

2D 


003B 

FE 

02 


003D 

02 

46 


0040 

3E 

04 


0042 

32 

FF 


0045 

C9 



0046 

3A 

2E 


0049 

FE 

10 


004B 

CO 



0040 

3E 

05 


004E 

32 

FF 


0051 

C9 



01 

DJNZ F5 

LD A, (0121) 

;is it f A’ (up)? 

00 

CP 04 

JP NZ,001F 

;no,try again 


LD A,01 

;yes,save itin location FF (255) 

00 

LD (00FF), A 


RET 

;return to basic program 


CP 02 

sis it ' Z 1 (down)? 

00 

JP NZ,002A 

;no try again 


LD A,02 

;yes save it 

00 

LD (00FF),A 


RET 

;return 

01 

LD A,(012C) 

;is it 1 1’ on keypad (drop bomb)? 

00 

CP 02 

JP NZ,0038 

;no try again 


LD A,03 

;yes save it 

00 

LD (00FF),A 


RET 

;return 

01 

LD A,(01 2D) 

;is it ’2 1 on keypad (drop cluster)? 

00 

CP 02 

JP NZ,0046 

;no try again 


LD A,04 

;yes save it 

00 

LD (00FF),A 


RET 

;return 

01 

LD A, (012E) 

;is it 1 3’ on keypad (fire guns)? 


CP 10 

RET NZ 

;no,return 


LD A,05 

;yes save it 

00 

LD (00FF),A 



RET 

;end of program,return ^ 


SPIRO 

FOR 

MBASIC 

Spiro is a program that draws 
patterns similar to those pro¬ 
duced by the well-known 
‘Spirograph’ game. It will draw 
all patterns that use two wheels, 
with the second wheel either in¬ 
side or outside the first one. In 
addition, it allows the pen radius 
in the second wheel to be out¬ 
side the circumference of the 
wheel. 

It is written in Microsoft 
BASIC-80 (MBasic) but does 
not use any special commands, 
so should be easily portable. 
Like most Basics, MBasic does 
its transcendental functions in 
radians, so the program has a 
conversion function (ANGLE). 

It uses only two commands in 
the plotter. ‘MX,Y’ means move 
to position X,Y and ‘DX,Y 
means draw a line from the cur¬ 
rent pen position to position 
X,Y. The pattern will be cen¬ 
tered 600 units along the X and 
Y axes, but this can be changed 
with one line in the program. 


10 REM SPIRO 

20 CLS$-CHR$(26):PRINT CLS$; CLEAR SCREEN 

30 PRINT"This program draws circular patterns similar to those produced 
40 PRINT"by the CHR$(34);"SPIROGRAPH”;CHR$(34);" game. The plotting 
commands are 

50 PRINT”suitable for the ROLAND DG DXY-100 and DXY-800 series of plotters. 
70 PRINT"The program requires 5 items of input. 

80 PRINT" 1. Large Circle Radius. This is the radius of the gear wheel that 
90 PRINT" normally would be pinned to the drawing surface. 

110 PRINT" 2. Small circle radius. This is the radius of the gear wheel 
into which 


120 PRINT the pen is inserted and which rolls around the circumference of 

130 PRINT" the large circle. Despite the names, the small circle radius can 

140 PRINT" be either smaller or larger than the large circle. For practical 
150 PRINT" purposes the radius can be considered as the number of teeth 
in the 

160 PRINT" circumference. Notice that the ratio of large circle radius to 

170 PRINT" small circle radius determines the number of iterations needed 

180 PRINT" before a pattern returns to its starting point. 

190 PRINT" Note that the small circle radius can be negative. This means 

200 PRINT that the small circle rolls around an inside circumference. In 

210 PRINT" this case the pen position radius must be less than the large 

220 PRINT" circle radius. 

230 PRINT"HIT ANY KEY TO CONTINUE";I$-INPUT$(1) 

240 PRINT CLS$; 

250 PRINT 3. Pen position radius. This is the distance from the centre of the 
260 PRINT" small circle at which the pen will be placed. This can be 

greater 

270 PRINT than the radius of the small circle, to create effects not 

possible 

280 PRINT" with the original game. 

290 PRINT" 4. Number of iterations. The number of times that the small 
circle i8 


Enhancements include 
changing the shape of the ‘big’ 
circle to an ellipse or some 
other function or inserting an 
auto-incrementing loop to rotate 
a pattern. It would also be pos¬ 
sible to add another ‘circle’ to 
the structure. If R2 is the radius 
of this circle, then calculate SJ 
as for SI, but from R1 and R2, 
and then calculate QX and QY 
as for PX and PY. 

The pattern here was produc¬ 
ed with the sequences 250/50/ 
250/1 /0,250/50/150/1 /0 and 

250/50/50/1/0. 


Jeff Richards 
Jamboree Heights Qld 


300 PRINT" to complete a circuit of the large circle. 

310 PRINT" 5. Initial offset. The angle by which the radius vector containing 
320 PRINT" the pen is to be rotated from the x-axis (0 degrees) at 
the start 


330 PRINT of the plot. This is used in repeated patterns to 'walk' 

the whole 

340 PRINT" pattern around. For single patterns, use 0. 

350 PRINT:PRINT 

390 PRINT"HIT ANY KEY TO START";I$-INPUT$(1) 

400 PRINT CLS$; 

1000 ANGLE-3.141597200000001#/180 


1010 

INPUT 

" LARGE 

CIRCLE 

RADIUS - 

" ,R0 

1020 

INPUT 

" SMALL 

CIRCLE 

RADIUS - 

" ,R1 

1030 

INPUT 

" PEN POSITION 

RADIUS - 

” ,R 

1040 

INPUT 

"NUMBER 

OF ITERATIONS - 

" ,N 

1050 

INPUT 

" 

INITIAL 

OFFSET - 

" ,T 


1060 DISPL-600 'OFFSET. ADJUST FOR YOUR PLOTTER OR PATTERN SIZE 
1080 F-0 

1090 FOR TH-0 TO 360*N 

1100 CX-(R0+R1)*C0S(TH*ANGLE):CY-(R0+R1)*SIN(TH*ANGLE) 

1110 SI-TH: IF R1O0 THEN SI-TH*(RO+Rl)/Rl 
1120 IF SI>360 THEN SI-SI-360:G0T0 1130 

1130 PX-CX+(R*C0S((T+SI)*ANGLE)):PY-CY+CR*SIN((T+SI)*ANGLE)) 

1140 PX-PX+DISPL:PY-PY+DISPL 

1150 Xl-INT(PX):Yl-INT(PY):G0SUB 1200 

1160 NEXT TH * 

1170 GOTO 400 

1200 IF F-0 THEN LPRINT "M";XI;",";Y1 'MOVE TO (XI,Yl) 

1210 F-l 

1220 LPRINT "D";X1;",";YI 'DRAW TO (Xl.Yl) 

1230 RETURN 
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Hangman should work on the 
Model I and, with small modifi¬ 
cations, any other machine. The 
normal rules of hangman apply, 
however, if requested, there is 
a time limit applied to each 
guess. If a key is not pressed 
in time a move will be lost. As 
you win or lose the time limit 
changes to make it more diffi¬ 
cult or easier. 

Obviously many more words 


can be introduced by simply 
adding more data lines, be¬ 
tween lines 180 and 210. SE$ 
contains the hidden word and 
Dl$ contains the displayed 
word, for example RA--I-. Tl 
contains the time limit and its in¬ 
itial value can be altered by 
editing line 60. 

R. Tooth 
Devonport TAS 


SHUFFLE 


10 PRINT "HANGMAN","By R.Tooth 1982" 

20 PRINT "-" 

30 PRINT "ANY KEY TO CONTINUE" 

40 IF INKEY$-"" THEN 40 

50 PRINT"D0 YOU WANT A TIME LIMIT (Y/N)" 

60 Y$-INKEY$:IF Y$-"Y" THEN TI-800 ELSE IF Y$="N" 
THEN TI-90000 ELSE 60 
70 RESTORE:ON ERROR GOTO 70 
80 T-0:Y-0:H-0:FOR LP-I TO RND(30) 

90 READ SE$ ' SE$ CONTAINS HIDDEN WORD 

100 NEXT LP 

1 10 CLS ' SET UP SCREEN 

120 PRINT @ I 36,CHR$( 175) 

130 PRINT @ I37,STRING$(12,143) 

140 FOR LP- 1 TO 9: PRINT (3 148+(LP~ 1 )*64,CHR$(191); 
150 NEXT LP 

160 PRINT <3 7I8,STRING$(12,143); 

170 Y-l :H-64:PRINT <3 200,CHR$(138); 

180 DI$»STRINGS(LEN(SE$),"-") ' DI$ CONTAINS DIS 

PLAYED WORD 

190 DATA BLACK,HELLO,CHAIR,DISCOVERY,IMAGINATION,T 
OE,OPERATION,LANGUAGE,EQUIPMENT,ASK,AGENCY,AQUIRED 
,IF,QUARTZ,SHALLOW,DYE,FRIGHT,PITCH,CUBICLE.TURTLE 
,LION,CAT,INCREDIBLE,RABBIT,YACHT,TELEPHONE 
200 DATA CLOCK,STAPLER,QUILT,INGENIOUS,IT,TYRE,HAP 
PY,HAND,WICK.MISSIPI.WINDOW,PSYCHIATRIST,WITHDRAWL 
.OBJECTIVE,FIX.LOWER,COMPLEX,SENSE,ELECTRICITY,HIG 
H,QUADRANT,TWO,AND,YOGHURT,QUICKLY,LABORATORY,YEST 
ERDAY,BLIMP,HYDROGEN,CHEQUE,SKI,AQUA,BOG 

2 10 PRINT <? 900,DI$; 

220 IF DI$-SE$ THEN GOTO 450 ' HIDDEN WORD DISCOV 

ERED 

230 PRINT @ 964,""; 

240 FOR LP- 1 TO TI :C$ = INKEY$: IF C$("[" AND C$)"(3" 
THEN 270 
250 NEXT LP 
260 C$»" " 

270 L$-C$+'\" 

280 PRINT (3 970+T,L$; 

290 F-0:T-T+2 

300 IF INSTR(I,SE$,C$)-0 OR INSTR( I ,DI$,C$)()0 THE 
N 350 

310 F-INSTR(F+1,SE$,C$) ' F CONTAINS POSITION OF 

INPUTTED KEY IN WORD 
320 IF F-0 THEN GOTO 210 
330 MID$(DI$,F,I)=C$ 

340 GOTO 310 

350 IF Y-7 THEN H-128:FOR LP-0 TO 9: PRINT @ 260+LP 
*64," ";:NEXT LP:FOR J-I TO 2:PRINT @ 524+ 

J*64,CHR$(191);:NEXT JtPRINT @ 264,CHR$(138);:PRIN 
T @ 200,CHR$( 170);:PRINT @ 4,"Y OUR HANGE 
D!":TI=TI+8*Y:PRINT(3900,SE$; ' HANGED 

360 IF Y)0 THEN PRINT (3 I 99+H,"(")"; 

370 IF Y)I THEN PRINT @ 263+H,CHR$( 156);CHR$(19 1); 
CHR$(157);CHR$( 148); 

380 IF Y)2 THEN PRINT @ 326+H,CHR$(136);CHR$(133); 
CHR$(19 1);CHR$(I49);CHR$( 14 1); 

390 IF Y)3 THEN PRINT <3 39 l+H,CHR$( 168) ;CHR$( 143); 
CHR$(173); 

400 IF Y)4 THEN PRINT @ 455+H,CHR$( 142);" ";CHR$(I 
38);CHR$( 132); 

4 10 IF Y-7 THEN 470 

420 IF Y)5 THEN PRINT @ 517+H,STRINGS(8,131); 

430 Y-Y+l ' Y CONTAINS NUMBER OF INCORRECT GU 

ESSES 

440 GOTO 220 

450 PRINT:PRINT "CONGAGULATIONS!! YOU GOT IT" 

460 TI-TI-( 10-Y)* 10 ' ADJUST TIME FACTOR 

4 70 PRINT <3 1000, "PLAY AGAIN?"; 

480 B$-INKEY$:IF B$-"" THEN 480 ELSE IF B$()"N" T 
HEN 80 

490 PRINT:PRINT "HEARTLESS BEAST" 

500 END 


Here’s a fun little program to 
keep you and your mind oc¬ 
cupied on rainy Saturday after¬ 
noons or on that long business 
trip interstate. Written for the 
Model 100 TRS-80, it is a 
number-shuffle game which 
scrambles a line of digits and 
dares you to put them in their 
correct order. Ten digits are 
placed, in jumbled order, in a 
line. Your job is to ‘shuffle’ them 
by reversing part of the 
sequence, eventually to have all 
ten digits in the order 
0123456789. 

After enduring the title pages 
and introductory instructions 
(housed in the subroutine from 
line 260 onwards) you are 
greeted with a rather sparse 
screen holding only three 
pieces of data - a counter stat¬ 


ing what move you are up to, 
the jumbled line of numbers and 
an input prompt asking you 
which digit you’d like to reverse 
from. When you enter a number 
between 1 and 10, the 
sequence from that number to 
the end is totally reversed. For 
example, if you enter 4 then the 
first four numbers will remain as 
they are and the rest of the line 
will reverse its sequence. If 7 
was in position 4, it is now in 
position 10. 

I hope you enjoy the pro¬ 
gram. You might like to improve 
it by adding letters in the 
sequence. Have fun! 


Neville Predebon 
West Preston Vic 


5 REM - Shuffle - 

6 REM - N. Predebon, 1983 

7 CL 3 

3 SEC-VAL<R1GHT*(TIME*. 2 > ) 

V FOR 3FUR~1 TO SEC: INIT=RND(1): NEXT SPUR 
In MOVE" 1 : A*="" 

13 IjGSUB 26<> 

< FOR NUM = 0 I Cl 9 
30 L - IN T ( RND ( 1 ) * 10) +48 
40 0 1 

00 IF MID* < A* , D, 1 ) --CHR* (L.) THEN 30 
60 IF 0 NUM THEN 0-0+1: GOTO 50 
.’0 A*=A*+CHR* <L ) 

0" NEXT NUM 

70 SOUND 1415,3: SOUND 1323,:.: SUIJND 1415,5 
l"" PRINT O 127, "Mcwe number MOVEPRINT A* 
II" I-FIN I i) 2u9, "Reverse -from number";: INPUT REV 
l." IF REV 1 (JR REV 9 THEN 110 

1 3" Df- "" 

1 40 FOR SHLIf F L.t- : 1 O 10 REV STEP -1 
13" L(*-F^ + M ID* (A*, SHUFFLE, 1) 

IS') NEXT SHUFFLE 
1 7< > A* _EF 1 % ( A* , REV- 1 ) +B* 

I O'.i IF Hi- "01 2 3456.789" THEN 200 
1 9' ■ MOVE -MOVE + 1 : GOTO 90 


7 1" PRINT -v 55, Hi 
. " PRINT -v 134, " YOU DID IT 1 '" 

. " PF1NI: PRINT TAD(9>;“It tool you";MOVE;"moves''" 

.4'.' F OF-: FIN- 1 > IU 15: SOUND 1660, 3: SOUND 1975,3: NEXT FIN 
•) FUR DELAYS" TO 99: NEXT DELAY: RUN 

FEINT: f OF: I I f L.E =• 1 TO 8: SOUND I NT ■ RND ( 1 ) *200 ) + 1 1 00, 5 

* PPIM "shuT * : FOR DEL. aY= : < ) TO 29: NEXT DELAY: NEXT TITLE 

• 0" FOR DELAY--".) 10 99: NEXT DELAY 

29" FRONT: IT INI "Tl us j s a game of logic. You have to try"; 
"" FR: INI ' to qt'l the numbers in ttieir proper order"; 

1" PFONT TAB(.9;"tiv 'reversing' part of the sequence." 

• " I R 1 NT I AD '■ 7 ) ; "Dor. t r ush it - you ' ve got forever ' ' " 

' FTONT i) 79". "no ,.fiy ley to begin"; 

'*0 I''- lNIE't " " THEN 340 ELSE CLS: RETURN 
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THE SCRAMBLER 


CLOAD PRG1 <THE SCRAMBLER> 

PRINT PEEK(16633) 

IF >= 2 THEN POKE 16548 ,P EEK( 16633)-2: POK E16549,PEEK( 16634) 

IF = 0 OR 1 THEN POKE16548,PEEK(16633)+254:POKE16549,PEEK(16634>-l 


CLOAD PRG2 <YOUR PROGRAM> 
POKE16548,233:POKE16549,66 


1 CLS : ?"THE,SCRAMBLER* SECURITY.,SYSTEM" : ? 
"WRITTEN *5-1-83« BY.ROBERT* E.* YOUNG":?"VE 
RSION »1.6":?:? 

2 INPUT"ENTER4F1RST« SECURITY*NUMBERa(FRO 
M.l*TOa 200 )";A:INPUT"ENTER*SECOND*SECURI 
TY« NUMBER *(FROM*1*TO*25)";B:INPUT"ENTER* 
THIRD* SECURITY*NUMBER*(FROM*1*TO*25)";C 

3 FORD=17694TOPEEK( 16633 ) + 256*PEEK( 166 34 
) : IFPEEK(D) = 0, D=D+ 5 

4 E=PEEK(D)+A-255 

5 IFF/B=INT(F/B),E=E+B 

6 IFF/C=INT(F/C),E=E+C 

7 IFE<0,E = E + 2 5 5 

8 IFE>255,E=E-255 

9 ?F:POKED,E:F=F+1:NEXT:IFPEEK(17433)=20 
6,POKE17433,205:POKE17435,206:POKE17459, 
205:POK E17 4 81,205:?"DECOD ING*COMPLETE":E 
N D: ELF. 2POKE 17433,206: POKE 17435,205: POKE 1 
7 459,206: POKE 17481,206 : ?" ENCOD INGaCOMPLE 
TE":END 

10 REM $ APPEND OR WRITE PROGRAM HERE $ 

11 REM * 


12 REM * 


13 REM * 


14 REM * 

15 REM * 


LISTING 1 


NOTE - a REFERS TO A SPACE. THIS PROGRAM 
MUST BE TYPED EXACTLY AS IT IS SET OUT IN 
ORDER FOR IT TO WORK CORRECTLY!!! 


An unbreakable, triple A secu¬ 
rity system for the Level 2 TRS- 
80 and System 80 computers. 

Scramble your programs so 
that when they are loaded they 
cannot be executed without the 
correct passcode. 

Firstly, type in or append your 
program to LISTING 1, begin¬ 
ning it at line 10. When you are 
ready to save your program, 
type RUN and enter three secu¬ 
rity numbers. THE SCRAM¬ 
BLER will go to work, encrypt¬ 
ing everything beyond line 9. 
This can then be CSAVEd with¬ 
out any fear of someone else 
running or listing it. 

When you decide to work on 
your program next, load and run 
it and then enter the same three 
numbers. Your program will be 
decoded back to its original 
state. 

There are 125,000 different 
combinations so it is highly un¬ 
likely that anyone who doesn’t 
know your numbers can crack 
it. But, don’t forget the numbers 
since if even one of the num¬ 
bers is slightly out, the decoding 
will make your program even 
more obscure. Line 0: This is 
free so you can enter - 0 
GOTO 10. Typing this will make 
sure your program is not en¬ 
coded while you are debugging 
your program. To scramble your 
program, just delete 0. 

Robert Young 
Thornlie WA 




WAGES, SALARIES, TAX & APPORTIONMENTS 

This program can be adapted to it stands it is only necessary to 


any small business where staff 
and materials are involved. 
Names of employees and 
hourly rates of pay can be eas¬ 
ily changed. If there are less 
than ten employees enter zeros 
or merely press the ENTER 
key. If there are more than ten, 
then alter the appropriate lines 
i.e. 2000 FOR N1 to 10 etc. 
Names, amounts and descrip¬ 
tions can be altered at will pro¬ 
vided the rules of syntax are ob¬ 
served. To run the program as 

900 Cl? 

80? REM .BY V-Okj cqq-_ JE. . . . . 

907 PE M ‘?8~ 

810 PRINT" ... U°CE' r 8 Q LQPIE? T «X °ND qpcnP T !? kW F ,IT ? ... 

820 PRINT"-----" 

830 PRINT 

840 PR I NT "TH13 PROGRAMME C Q N PE a DAP T E rs T r cmjt qu-v pnpM qp " 

8?0 PPIN T "3MRLL PL"? T NESS ACCOUNTthg WHERE S Tp PP IS E MO LC v EC s " 

860 PPINT"AND MATERIALS USER. 

892 PRINT 
894 PRINT 

896 PRINT" ’HE ROLLONING IS AN EXAMF_E 
900 FOR C * 1 TO ?000 > HEX’ 

920 CLS 1 CLEAR 2000 

940 D*=" ft### ,####.##" • NC*="hO t ES " CCt* "CO I NS " 

960 DIN AP! 12),CU'13>,BB*! 12> 

930 FOR N-l TO 12 READ BB*'N' NEXT 

1000 DATA *50 -,*20 -,*10 - *? = *2 = ,*1 =■?? CENT =,20 CENT = 

10 CENT =,? CENT-, 2 CENT = ■! CENT = 

1020 FOR N-l TO 7 : READ PR*'N> • NEX T 

1040 DATA 1. CLEARING 2. EARTHWORKS,8. DRAINAGES. CULVERTS,?. 
FORMATION,6. SURFACING,?. RESERVE FUND 

1060 PRINT'PRINTCHR*C23>".SNIPE OF maora."= PRINT 

1080 PRINT" WORKSHEET"PRINT 

1100 PRINT" PROJECT NUMBER i'X'.SS"PRINT 

1120 PRINT" SPUR ROAD, LOCATION i.'4S" 

1140 FOR Q - 1 TO 4000 1 NEXT 

1160 CLS ; PRINT PRINT:INPUT"ENTER TOTAL CONFIRMED COST OF PROJECT":TB«* 
1180 PRINT:INPUT"ENTER PERCENTAGE ESTIMATED FOP LABOUR"-P 
1200 TB#!2)»TB#! 1 >*P^100 : BA#' t >=TB#< 2 >* 1.2?/100 
1220 TB#! 3 >=TB#! 1 >-TB#< 2 > TB#! 2 >*TB#! 2 >-BA#! 7 ) 

1240 CLS 1 PRINT :PRINT"VOUR LABOUR BUDGET, LESS RESERVE • IS " i 
:PRINTUSINGD*.tTB*K2 

1260 PRI NT"ENTER THE PERCENTAGE ESTIMATED FOR EACH CATEGORY " 1 PRINT 

1280 FOR N-l TO 6 1 PRINT,AP*<N> 1 NEXT PRINT 

1300 PC-0 1 FOR N-l TO 6 

1320 PRINT5704, "PROGRESSIVE *<AGE - " PC 

1340 PRINT AP*!N> 1 INPUT l-J > PCI N >*W BA# 1 ' N )=TB#! 2 >*WY100 

1360 PC - PC+W 1 NEXT 

1380 CLS 1 PRINT"YOUR BUDGET HAS BEEN ASSESSED AS FOLLOWS lMi PRlNT 
1400 PR I NT, " TOTAL COST 1 " 1 PR I NT , US I NOD* • TB#! 1 > 

1420 PR I NT, " MATER IALS 1 " 1 PR I NT, IJSINGD* • TB#! 3 ) 

1440 PRINT"TOTAL LABOUR ", 1 PRINT,USINGD*■ T B#!2> 

1460 FOR N-l TO 6 PR I NT APf! N) 1 1 PR I NT, IJS I NGD* 1 BA# 1 ' N ).; 

1 PRINT , PC! N ) ■ "X" 1 NEXT 

1480 PRINT, APf! 7 >; 1 PRINT, US I NGD*.: BA#! 7 > 1 1 PR I NT, " -" 

1500 PPINT5832,"PLEASE CHECK. TO ALTER, P RESS A. 

C0N T INUE WITH ANY OTHER KEY." 

1520 E*-INKEY* 1 IF E*«"" then 1520 ELSE IF E*=CHR*! 6? > 

T HEN 1180 ELSE 2000 

2000 FOR N-l TO 10 1 READ Nf! N > 1 NEXT 

2020 DATA 1.FISHER JOHN,2.ARTHUR JAMES,3.IVES SIMON,4. 

STEED P AUL,5.DA V TERRENCE, 

A.WILLIAMS A.B..7.ARKWRIGHT J..P.JOHNSON S.•?. 

AMQ8 CARL•10. T REDOS ERICA 

2040 FOR N * 1 TO 10 READ C*<N), R! N) NEXT 

2060 DATA LABOURER ■ 5.25, OUAPRYMAN • 6. 50 • HAMMER %■ DRILL, 6.7?. 

SCOOPMAN,6.65,POWDER 

MONKEY,7.50,TRUCK DR IVER.A.00.GRADER DRIVER,8.2?•CARPENTER-7.1? 

SECRETAPV 

OREMRN,9.2? 

2080 G03UB 10000 

2100 CLS PRINT"EN’EP HOURS WORKED IN EACH CATEGORY ■" 

2120 DIM H! 10, 10 > W< 1 0.1 0 > TG-0 FOP N = 1 to i pi : i rr w r NEXT 
2140 FOR N-l T 0 !0 

2160 PRINT 1 PRINT"HOURS i.JOPKED BY " . M*'n ' 

2190 FOR M - 1 to na 
2200 PRINT C*' M " " 

2220 I HPUT H! N M '• NEXT 
3000 GW-0 1 FOR X = 1 T ? 

3020 W = H! N X "•tP! X > 1 W= I NT < WY100+. 5 -■ 1 00 
UK N • X I-W L C f X 5-L C< X '+W Gld-GW+ld 
NEXT 

3040 GW!N)=GW TG-TG+GW' N T G - IWtv 00+. ? -"100 NEXT w 
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enter the number of hours 
worked in each category as the 
computer asks for them, enter 
zero or pass. However in the 
apportionments a careful as¬ 
sessment of percentages 
should be made and the total 
must be 100 per cent. Where 
no work is carried out a zero 
must be entered. 

Upon running this program 
you will be asked two ques¬ 
tions: “what is the total amount 
allocated for this project?” and; 


3050 ZZ-0 •• FOR M-1 TO 12 1 AA! M >«0 1 NEXT 

3060 TT-0 > NT-0 1 FOR N-l TO 10 

3080 IF GW!N > «< 200 THEN T=0 ELSE T-32 

3100 IF GW!N) -> 800 THEN T-45 ELSE IF GW! N ) -> 1.200 THEN T - 64 

3120 T!N)“GW!N)YT/100 : T! N I-1 NT! T ! N )Y 100+. 5 VI00 TT-TT+T! N > 

3140 NU!N>=GW!N>-T!N> 1 GOS'JB 9200 

3160 NT ■ NT+NW!N > 1 NEXT 

4000 CLS 1 PRINT,"APP0PT T 0NMENTS" 

4020 PRINT"PLEASE INSERT APPROPRIATE PERCENTAGES BELOW 

4030 PRINT"CURRENT LABOUR COST !ALL CATEGORIES) « *"; tf 

4040 PRINT 1 PRINT," CR t EG 0RY =" "v BUDGETED 

4045 FOR N-l TO 6 • PRINT,AP*!N>," " ; PC!N ) > NEX T 

4080 FOR N - 1 TO 6 1 AE!N> = 0 = NEXT 

4100 Q - 0 

4120 FOP 2 = 1 TO 6 

4140 PRINTS 704, "PROGRESSIVE URGE - " >0. 

4160 PR INTAP*! Z > : INPUT R : C! Z )=TG*R.''100 : AS! Z >=AE! Z )+C! 2 ) 

41.80 0-0+R : NEXT 

4200 CLS 1 PRINTS 53S. "PLEASE WRIT 
4210 FOR Q - 1 TO 4000 = NEXT 
i; 4220 CLS 1 PRINT "D p TP PROCESSING hrs BEEN C0MP'_E T ED-" 

4240 PRINT" INFORMATION IS AVAILABLE AS FO*. LOWS " 

4260 PRINT:PRINT,"1. HOURS WORKED AND VALUES" 

4280 PRINT,"2. WAGES AND TRXAT70M" 

4300 PRIN T ,"3. ACCUMULATED LAB°UP CARTS" 

4320 PRINT,"4. CURRENCY TABLE" 

4340 PRINT,"5. EXPENDITURE" 

4360 PRINT,"6. ORIGINAL BUDGE T " 

43B0 PRINT,"7. ARRAY STORAGE" 

4400 PRINT > PRTNT"PLEASE PPFSS THF PFOUTRFD NUMBER." 

4420 Ef-INKEY* = IF E*-"" THEH4420 

4440 oh VAL!E* ) GOTO 5000,5500•6000,6500,7000•7500,8000 
5000 CLS 1 PRINTS77 .."PLEASE ENTER e mp L0YEF'S NUMBER :" 

5020 INPIJ T EN 

5040 CLS : PRINT N*!EN>:" =" 

5060 PRINT, "CATEGORY" , "HOURS WORKED" , " VALUE !GROS- : >" 

?0A0 FOR X = 1 TO J 0 
5100 PRINT,C*!X ),H!EN,X), • 

5120 PR INTIJSI NGD*.; W! EN, X = NEXT 

5130 PRINT,"TOTAL = " • 1 PRIN T ,,USINGD* 1 GW!E w ) 

5140 PRINT : GOSUB 11000 

5160 E*=INKEY* : IF Ef-"" THEN 5160 

5180 ON VAL ,/ E* ) GOTO 5000,5500,6000,6500, ‘ r 000,7500 9000 
5500 GLS 1 PRINT Tqprig)"WAGES AND TAXATION" 

5520 PRINT," GROSS WAGE","TAX PAYABLE","MET WAGE" 

5540 FOR N-l TO 10 

5560 PR I NTH*! N ).: = PP I NT, IJS I NGD* 1 GW! N ), T! N > . NW! w ) : NEX T 
5580 PR I NT "TOTALS = " ■ 1 PRINT USINGD*,' TG, T T , NT : PRINT 
5600 GOSUB 11000 

5620 E*=INK.EY* : IF E**"" THEN 5620 

5640 ON VAL!E* N GOTO 5000,5500■6000 - 6500,7000 7500 p 000 
6000 CLS ■ PRIN T TPB!22)"CURRENT LABOUR C0S T S" 

6020 PRINT"CATEGORY" " HOURLY RP^E",•"C0 PT TO DATE" 

6040 FOP N = 1 to 10 

6060 PP I NT C*' M '• PR T NT ijs 1 NGD* R! N ) • 1 PR I NT IJS I NOD* LC / N > : W£X T 
6080 PPIN T "TOTAL " PRINT, -IJSINGDf-TG 
6100 GOSUB 11000 

6120 Et*INKEY* IP F*=" " -r HE 1 ' 6‘2C 

6140 ON VAL/ E* '•> G0 T 0 5000 5500,6000,6500 7 0 p 0, ^500 8000 
6500 OLS RPTN T "0URRENC v T«R|_c-" 

6520 PRIN T "TpTq|_ DpvojT _ f „ . ^ 

6540 PPUT RPINT.NO*. CO* 

6560 FOR M-l TO 6 P^IN^ BRt' m '■ . ” ■> . RR*'' M+r v oq, m+c •. mpvt 

65.80 K-RA! 1 1Y50+RA' 2 ''*20+A Q ! ? ''YIO+A 0 '' - ■t^i+AA! 5 >:+2+ n A / 6 > 

6600 KK-RA! t )Y50+AP! s >t20+PA! ? *•* 1 0+RA' 1 0 '.*5+0®! 1 1 ):*7+oqi; < 2 ) 

kiz-kk/? 00 > KK-INT 
' KKY1 80+. 5 ']00 
P620 PR IN’ 1.' K'K 

6 r 40 GOSUB 1100? 







6660 Ef-INKEY* ! IF E* * "" then 6660 

6680 OH VAL<E*> GOTO 3000,3300,6000,6300,T000,730?■8000 
7000 AE^A} = 0 : r OR N = 1 TO 6 : RF' 0 > = AE< 0 > J -AEOO = MEV T 
7020 CL8 • PR INTTREK 26 >■" EXPEND I "Hjpr, <• 

7040 PR I NT ' PR I NT " CATEGORY' " , " PUDGE T " , " RC T 'JRL " , " 9RLPN0E " 

7060 FOR N=1 TO 7 

7080 PR I NTAP*< N >) • PR I NT, US I NGD* * BA#< N).i = p P I NT • US INGD*; PE'' N > » ' p RI NT . 

US I NGD*.' BA#< N >-AEOO * NEXT 

7100 PRINT'PRINT"TOTALS * " .« « PRINT,USINGS*: TR*K 2 > ; : PR J NT.. US INGD* 

RE<0?.! 'PRINT, US I NGD*.’TB#<2>-RE<0> 

7120 PR I NT" PRESS = E - TO INCREASE EXPENDITURE T - TO TRRNSFEP 
7140 GOSUB 11000 FUNDS." 

7160 Ef-INKEY* = IF E**"" THEN 7160 

7180 IF Ef*CHR*( 84 > THEN7300 ELSE IF E*«=CHR*< 69 > T HEN 7200 
7190 ON VAL< E* > GOTO 3000,3300,6000,6300 • 7000, TT-00,8000 
7200 CLS PR I NT "ENTER ADDITIONAL COST’S IN EACH CATEGORY ' " 

7220 FOR N*1 TO 7 PRINT RP*(N > = INPIJ T E< N > 

7240 RE< N )-RE< N >+E< N ) ■■ PEC 0 >*RE<! 0 >+EC N > 

7260 NEXT ' GOTO 7020 

7300 CLS ' PRINT,"TRANSFER TR8LE" 

7320 PRINT,"CATEGORY"," EXPENDITURE"," BALANCE" 

7340 FOR N-l TO 7 


7360 PR I NT , RP*< N 'PR! NT , US INGD* ; AE< N>.i 'PRI NT . US I NGD* j BA#< N >- AE< N > 
7380 PR I NT' INPIJT" ENTER NUMBERS ' FROM' AND ' TO' " ; X, Z «E> 

7400 INPUT"ENTER AMOUNT TRANSFERABLE"=Y 

7410 IF X = 7 THEN RE<X> = RE<! X >+Y ELSE B CT #< X > » BA<K X >-V 
7420 BR#< Z > = BA#<! Z >+Y 
7440 GOTO 7020 

7300 CLS ' PRINTTR0<22)"TOTRL BUDGET (COPY)." 

7320 PRINT>PRINT"YOUR BUDGET ASSESSMENT WAS AS FOLLOWS 
7340 PRINT, "TOTAL PROJECT COST ; = PRINT, USI.NGD* • T B#< 1 > 

7360 PRINT,"MATERIALS '"• = PRINT•USINGD*■ T B*'3 > 

7380 PRINT"TOTAL LABOUR '"■ : PRINT,USINGD*■TP«K 2 ) 

7600 FOR N= 1 TO 6'PRI NT, AP*< N },• = PR I NT, US ING D* • T 8#' 2 >*PC< N > 100= ' 
PRINT, PC< N>; " 5j " : NEXT 

7620 PRINT,AP*^7 ?• 'PRINT,USINGD*'BA#< 7 >; : PR T NT•" 

7640 GOSUB 11000 


7668 

7680 

E*"INKEY* ' IF E*«"" THEN 
ON VALCE* > G0 T 0 3000,3300. 

■7660 

7000,7700,9000 


8080 

CLS ' PRINT"...DATA is STORED WITHIN 

TU£ POLLOWING 

RRRPVS..." 

8020 

PRINT = PRINT"ARPORTIONMENTS 

AP*<: N > BUDGET 

BAC 

8048 

PRINT"JOB CATEGORIES 

C*< N > 

PCTU°L FXP. 

qC(UV' 

8860 

PRINT"HOURS WORKED 

H< N, M > 

GROSS W«GE 

Gl'K H >" 

8880 

PRINT"RAY RPTRS/HR. 

PC N :■ 

NET WAGE 

' Nl'K N > " 

8100 

PRINT"STAFF NAMES 

N*< N > 

T°XA' T 'I0 M 

TOO" 

8120 

PRINT"LABOUR COSTS 

LCK N > 

Tr’TR! rryc*. 

ocif 0 yi 

8148 

PRINT" P R0JEC T COST 

TP*K 1 > 

t0tr!_ labour 

T8*K2>" 

8160 

PRINT"MATERIAL C0S T 

TB*<3 > 

BUDGET XAGES 

PCOO" 

8180 

8280 

GOSUB 11000 

E*-INKEY* IF E*="” THEN 

8200 




•S220 ON 7AL< E* > GC’O 3000, 3300 • 6000,6300,7000 • 7jc*fli 
9080 END 

9200 CLK 0 > = FTX< N'.-K N > > ' CLK 13 > = r !X< < NW< N >-CLK 8 
9228 FOR M*1 T 0 12 : CLK rO=0 ' NEX T 
9240 CLK 1 >=FIX< CLK 0 V30 > ' R*CLK 0 >-CU< 1 '’*30 
9268 IF R=>20 THEN CLK 2 >«F!X< R/20 > : R=R-CLK 2 >*20 

9288 IF R=>!8 then CL'< 3 >*FIX< R/18 > : R=R-C'.K 3 >#10 

9300 IF R=>3 * r HE t -' CLK 4 >*f?X< R,'3 j : R»R-CU< A >* 3 

9320 I e R-=>3 T HE M CLK 3 >*FIX< RX2 > ' R*R-CLK 3 >* 2 

9348 CLK 6 > = R 

9360 IF CLK 13 >=>30 T HE W CLK 7 )=FIX< CLK 13 > '30 > •• CL"' 
9330 C=CU<13> ' IP 0->20 T HEN CLK 8 >»FIX< QX20 > = 2~ 
9480 IF Q -> 10 THEN CLK 91-FI X< 0/10 > > 0*0-C'.K 9 >*10 

9420 IF 0=> 3 ' r HF vl CLK 10 >® r IX< 0x3 > : Q»0-CLK • 0 '"*’3 

044.9 IF 0=> 2 T HEN CLK 1 • >* r IX< 0/2 > = C=0-CLK 1 1 >*2 

9460 CLK 12 > = C 

9480 FOR m« 1 TO 12 : <5<S L M > = M s ' "'EXT 


?T100+.01> : 

7Z*ZZ-*-N!,.K N > 


9600 RET' 'RN 

1^00 C 1 A : WTWT . "PJ RARE VFRJPY uni IRL V C '°T- " r-orur 

10100 FOR N “ 1 tc «0 

< r>r? j N > • ■nc' ti.it . i ic- j ijr p,-* : t?/ s • l , EX" r 

j A 900 PRINT" IP CORRFCT • PRES* pnv KEV . £' ac RE-ENtEP' ED T ' r 206 ^ ^ 
j 00 ppTi.jTi'Tr nF0pS7AR v • p* ttp pnn» po ,irr>TT- A020 3100 s ‘" 

10430 E* = INKEY* ' IF E* = "" THEN * 8^30 ELSE RE T URN 

10380 END 

11008 PRINTS 896 ," 1 .HRS/VALUE"•" 2 .WAGES/TRX"," 3 .LAB.COSTS" 

11180 PR I NT " 4 . CURRENCY " , " 3 - EXPEND ITURE " , " 6 . PUDGET " , " 7 . ARRAYS " 
11200 RETURN 
11300 END 


WAGES AND TAXATION 



GROSS WAGE 

TAX PAYABLE 

NET WAGE 

1.FISHER JOHN 

*420.00 

*134.40 

*283.60 

2.ARTHUR JAMES 

*460.00 

*147.20 

*312.80 

3.IVES SIMON 

*420.00 

*134.40 

*283.60 

4.STEED PAUL 

*432.30 

*1.44.80 

*30^.70 

3.DAY TERRENCE 

*326.00 

*168.32 

*337.68 

6.WILLIAMS A.B. 

*32^.80 

*167.94 

*336.86 

7.ARKWRIGHT J. 

*463.60 

*148.99 

*316.61 

A.JOHNSON S. 

*648.00 

*207.36 

(C4 

9.AMOS CARL 

*736.00 

*241.92 

*314.08 

10.TREDOS ERICA 

*360.00 

*179,20 

*380.80 

TOTALS ' 

*3,232.90 

*1,674.33 

*3,338-37 


EXPENDITURE. 


CATEGORY 

BUDGET 

AC T UPL 

BALANCE 

1. CLEARING 

*1,777.30 

*323.29 

*1,234.21 

2. EARTHWORKS 

*6,221.23 

*1., 831.32 

*4,3B9.73 

3. DRAINAGE 

*888.73 

*26 1 .63 

*627.11 

4. CULVERTS 

*2,133.00 

*627.93 

*I,303.03 

3. FORMATION 

11 , 422.*9 

*418.63 

*1 002 .yy 

6. SURFACING 

*3,332.30 

*1. ,369.87 

*3,762.63 

7. RESERVE FIJ W D 

*223.00 

*0.00 

*223-00 

TOTALS ' 

*17.773.00 

*3•232.90 

*12,343.10 


CURRENCY TA8L r 




TOTAL PAYOUT = 

q R-17P 27 



HOTS • 


r-n I NS : 

*30 •= 

C- 

30 CENT » 

Cl 

*20 = 

*; 

79 ~e>J T = 

4 

*10 * 

s 

10 CENT - 

2 

*3 = 

c. 

3 C r NT ~ 

7 

*2 * 

7 

O n JTKIT rr 

4 

*1 * 

2 

1 rc;MT - 

4 


* 2332 


f c -.y-7 


“what percentage do you wish 
to allow for labour?”. Materials 
are not considered in this pro¬ 
gram. Allowance for this should 
be made when setting the per¬ 
centage for labour. 

Here is a test submission for 
the Wages or Salaries, Tax and 
Apportionments program which 
produced the printed tables. 
Total cost of the Project (includ¬ 
ing materials) $25,000 Percen¬ 
tage for labour 72 per cent. 
Hours, Categories, Wages, are 
produced from this in-put. 

1. Fisher John. Labourer 80 
hours 

2. Arthur James. Labourer 48, 
Quarryman 32 hours 

3. Ives Simon. Labourer 80 
hours 

4. Steed Paul. Labourer 54 
Quarryman 26 hours 

5. Day Terrence. Quarryman 56 
Hammer & Drill 24 hours 

6. Williams A.B. Quarryman 56 
Hammer & Drill 12 Scoopman 
12 hours 

7. Arkwright J. Labourer 56 Car¬ 
penter 24 hours 

8. Johnson S. Truck-driver 48 
Grader-driver 32 hours 

9. Amos Carl. Powder-monkey 
12 Foreman 72 hours 

10. Tredos Erica. Secretary 80 
hours 

Percentages allotted to each 
section (in both instances) 

1. Clearing 10% 

2. Earthworks 35% 

3. Drainage 5% 

4. Culverts 12% 

5. Formation 8% 

6. Surfacing 30% 

Total labour cost $17,775.00 
materials $ 7,000.00 re¬ 

sen/e $ 225.00 
Note: There is rather a long 
pause after entering the 
Employee’s hours of work. This 
is due to the number of calcula¬ 
tions to be worked out at this 
stage. In the third repeat of the 
program on the cassette this 
has been taken care of with a 
suitable explanation which is 
not on the print-out. 


Robert van Raalte 
Nedlands WA 



129 











POKES FOR YOUR EYES 

This program divides the screen 
into eight, numbering each 
Area; 1A, IB, etc. Each Area 
can be called from a Menu, and 
the memory addresses for that 
area are printed to the screen. 

Thus each one-eighth of the 
screen can be ‘exploded’ to fill 
the screen with the memory ad¬ 
dresses for that Area. 

I’ve called it ‘POKES FOR 
YOUR EYES’, because that is 
what it does: puts the POKE ad¬ 
dresses, in full, before your 
eyes. 

Arthur Pittard 

Fairfield NSW 


100 CLS : PRINTS 140,"******** DEVELOPED BY ********" 
110 PRINT2210,"ARTHUR PITTflRD 

36 HUBERT STREET,FAIRFIELD,2165 
N.S.W. AUSTRALIA 
* * % % * * * * * * * * % * % % %'' 

120 PRINTB523,"POKES - FOR - YOUR - EYES 

TRS-80 MODEL III BASIC LEVEL II 


130 

140 

150 

160 

170 


200 

210 

220 

230 


270 

280 

250 

300 

310 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

450 

500 

510 

520 

530 

540 

550 

560 

570 

580 


590 

600 


610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


THE SCREEN •' LAYOUT' 1 FOLLOWS" 

CLEAR 500 

PRINT0750,"PRESS ANY ALPHABET KEY TO CONTINUE" 

0< : =INKEY^ : IF n*='"' THEN 150 ELSE 160 

CLS- FOR OVEP=0 TO 53 : SET< OVER,0 > : NEXT 

FOR OVER=0 TO 63 : SET<OVER,11> : NEXT 

FOR DOWN=0 TO 11-SET(O,DOWN >* NEXT 

FOR DGWN=0 TO 11 •• SET< 63, DOWN > = NEXT 

PR I NTS 135, "THIS IS AREA -’1 A'"; 

FOR 0VER=64T0127 SETC OVER, 12 > = NEXT 
FOR 0VER=S4T0127 * SET' OVER, 23 > NEXT 
FOR DOWN=12T0 23 = SET(64,DOWN > = NEXT 
FOR DOWN=12 TO 23-SETC127,DOWN > = NEXT 
PRINTS422,"THIS IS AREA '2 B'"j 
FOR OVER=0TO63 = SET'.OVER, 24 > *NEXT 
FOR OVER=0T063 - SET'OVER,35 >* NEXT 
FOR D0WN=24TQ35 ! SET' 0,DOWN > - NEXT 
FOP D0WN=24T035 ■■ SET-' 63, DOWN >* NEXT 
PRINT0646,"THIS IS AREA '3 A'"; 

FOR OVER =64 TO 127■SET< OVER,36 )-NEXT 
FOP OVER =64 TO 127 : SET<OVER,47 > : NEXT 
FOR DOWN=36 TO 47 : SET<64,DOWN >-NEXT 
FOR D0WN=36 TO 47 -SET'.127,DOWN > = NEXT 
PRINTS870,"THIS IS AREA '4 B'"s 
FOR OVER= 64 TO 127 - SET' OVER, 0 > = NEXT 
FOR OVEP.= 64T012.7 - SET-' OVER, 11>* NEXT 
FOR DOWN= 0 TO 11 - SET-:. 64 , DOWN > - NEXT 


FOR DOWN=0 TO 11 : SET-' 127, DOWN > - NEXT 
PR INTO 166, "THIS IS AREA '1 B'"; 

FOR OVER=0 TO 63 - SET-:. OVER, 12 > = NEXT 
FOR OVER.S0 TQ63 - SET-:. OVER, 23 > - NEXT 
FOR DOWN=12 T023 : SET<0,DOWN >- NEXT 
FOR DOWN*12 TO 23 *SETC63,DOWN>■NEXT 
PRINTI2390, "THIS IS AREA 1 2 A•' " :> 

FOR 0VER=64T0127 - SET' OVER, 24 ) - 
FOP 0VER=S4 TO 127 : SET-1 OVER, 35 
FOR ,D0WN=24 T035 - SET'. 64, DOWN ) - 
FOR D0WN=24 TO 35 -SET'.127,DOWN>- NEXT 
PRINT8678,"THIS IS AREA '3 B' 

FOR OVER=0 TO 63 - SET-' OVER, 36 > 

FOR OVER=0 TO 63 : SET' OVER, 47 U 
FOR D0WN=36 TO 47 = SET-1 0, DOWN > : 

FOR DOWN =36 TO 47 - SET-' 63, DOWN > 

PRINTS338,"THIS IS AREA '4 A'"; 

PRINT8898,"Y * # * PRESS ANY KEY * % Y" > 0932,"TO CONTINUE % * Y Y 
LS=INKEY*-IF LY-=""570 


NEXT 

NEXT 

NEXT 


NEXT 

NEXT 

NEXT 

NEXT 


CLS-PRINTS 12," THE SCREEN IS DIV-IDED INTO 3 AREAS. 

SELECT THE AREA YOU REQUIRE FROM THE MENU. 


5 - AREA 1 B 

6 - AREA 2 B 

7 - AREA 3 B 

8 - AREA 4 B" 

-THEN PRESS <ENTER>" 


PRESS THE CORRESPONDING NUMBER t. <ENTER>. " 
PRINT8204,"PRESS ANY ALPHABET KEY TO RETURN TO THE MENU 
PRINTI2334, "MENU" - PRINTE462, 

"1 - AREA 1 A 

2 - AREA 2 A 

3 - AREA 3 A 

4 — AREA 4 A 

PRINT"PRESS DESIRED NUMBER KEY 
INPUTZ : IF Z>8 THEN 600 
DEFSTRA-M 

A="1 111111111' 

C="3 333333333' 

E="5 555555555' 

G="7 777777777' 

I="9 999999999' 

AA="0 000000000 
K="15000 +"=L="16000 +"- 
REM 


6 6 6 


B="2222222222 " 
D="4 444444444 
F="6 666666 
H*"8 888888 
J ="0 123456 

M="ROW #" : GOTO720 













720 ON 2 GOTO 730,940,1130,1360,1570,1780,1990,2200 
730 CLS‘PRINTS13,K;539,M+" 1 fl" 

740 PRINTS64,C+C+C+LEFTf< C, 4 ) 

750 PRINTS128,F+G+H+LEFTf<1,4) 

760 PRINTS192,J+J+J+LEFTf<J,3) 

770 REM 

780 PRINTS271,K;S293,M+" 2 fl" 

790 PRINT8320,D+D+D+LEFTf< D,4) 

800 PRINTS384,RIGHTf < B,12)+C+D+LEFTf< E,12) 

810 PRINTS447, RIGHTfOJ, 13 )+J+J+LEFTf<-J, 11 ) 

820 REM 

830 PRINTS327,K;S551,M+" 3 fl" 

840 PRINTS576,LEFTf< D,4HD+E+E 

850 PRINTS640,RIGHTf < H,4)+1+flA+LEFTf< 8,19) 

860 PR INTS704, RI GHTf< J, 4 )+J+J+J 
870 REM 

880 PRINTS783,K;8807,M+" 4 fl" 

890 PRINTS832,E+E+E+RIGHTf < E,4) 

900 PR INTSS96, LEFTf< E, 16 )+F+G+LEFTfC H, 7 ) 

910 PRINTS960,RIGHTf < J,16)+J+J+LEFTf< J, 7 ); 

920 GOTO 2400 
930 REM 

940 CLS ! PRINTS15,K;839,M+" 5 R" 

950 PRINT864,F+F+F+LEFTf< F,3) 

960 PR I NTS 128, RI GHTf < R, 8 )+B+C+LEFTf< D, 13 ) 

970 PRINTS192,RIGHTJ,8)+J+J+LEFTf< J,13) 

980 REM 

990 PRINTS271,K;8293,M+" 6 fl” 

1000 PRINTS320,F+F+G+LEFTf<G,4) 

1010 PRINTS384,H+I+flfl+LEFTf<fl,3) 

1020 PRINTS448,J+J+J+LEFTf<J,3) 

1030 REM 

1040 PRINTS327,K;8331, M+ " 7 fl" 

1030 PRINT8376,G+G+G+LEFTfC G, 3) 

1060 PR INT8640, RI GHTf <. D, 12 >+E+F+LEFTf< G, 11 ) 

1070 PRINTS704, RIGHTS. Jf, 12 )+J+J+LEFTf<J, 12) 

1080 REM 

1090 PRINT8783, K; S807,M+" 8 fl" 

1100 PRINTS832,H+H+H+LEFTf< H,4) 

1110 PRINTS896,LEFTf<flfl,4)+fl+B+LEFTf< C,19) 

1120 PRINTS960,RIGHTf < J,4)+J+J+LEFTf<J,19), 

1130 GOTO 2400 
1140 REM 

1130 CLS •• PR I NTS 13, K; S39, M+ " 9 fl” 

1160 PRINTS64,H+H+LEFTf<H,16)LEFTf<1,7) 

1170 PRINTS128,LEFTf< G,16)+H+1+LEFTf< flfl,8) 

1180 PRINTS192,RIGHTf<J,16)+J+J+LEFTfCJ,7) 

1190 REM 

1200 PRINTS271,K;S293,M+"10 fl” 

1210 PRINTS320,I+I+I+LEFTf<1,4) 

1220 PR INT8384, LEFTf 1 ' C, 8 )+D+E+LEFTf< F, 13 ) 

1230 PRINT8448, RIGHTfC J, S )+J+J+LEFTf < J, 13 ) 

1240 REM 

1230 PRINTS318,"* * ";Lj" * *";S54S,M+"11 fl” 

1260 PRINTS576,flfl+flfl+flfl+LEFTf< flfl,4) 

1270 PRINT8640,Rfl+fl+B+LEFTf< C,3) 

1280 PRINT8704,J+J+J+LEFTf<J,3) 

1290 REM 

1300 PRINT8774,"* * ".iLi" * * " S804, M+" 12 fl" 

1310 PRINTS832,flfl+flfl+flfl+LEFTf<flfl,4) 

1320 PRINT8896,LEFTf<F,12)+G+H+LEFTf<1,11) 

1330 PR INT8960, RI GHTf < J, 12 )+J+.J+LEFTf < J, 11 ); 

1340 GOTO2400 
1350 REM 

1360 CLS-PRINTS 9,"* # " ;Lj" * * ".;S34,M+" 13 fl" 

1370 PR INT864, fl+fl+A+LEFTfC fl, 3 > 

1380 PRINTS128,LEFTf<B,4 >+C+D+E 
1390 PR I NTS 192, RI GHTf < J, 4 )+J+-J+J 
1400 REM 

1410 PRINTS263, "* * ".iL.:" % % " .; 8290, M+" 14 fl" 

1420 PRINTS320, LEFTf 1 ' fl, 16 >+B+B+LEFTf< B, 8 ) 

1430 PRINT8384,LEFTf<1,16 >+flfl+R+LEFTf<B,8 ) 

1440 PR INTS448, RI GHTf < J, 16 >+.J+J+LEFTf < J, 8 ) 

1430 REM 

1460 PRINT8521, " * % ";L" * *".;0546,M+"15 fl" 

1470 PRINT0376,B+B+B+LEFTf<B,4 ) 

1480 PRINTS640, RIGHTf< E, 8 )+F+G+LEFTfC H, 15) 

1490 PRINT0704, RIGHTfC -J,8 )+J+J+LEFTf < J, 13 ) 

1500 REM 

1510 PRINTS777,"* * ".; L .;" * *".;8802,M+"16 fl" 

1320 PRINT8832,C+C+C+LEFTf<C,3) 

1530 PRINT0896,B+C+D+LEFTf(E,3 ) 

1540 PRINTS960,J+J+J+LEFTf<J,3 ) i 
1550 GOTO2400 
1560 REM 

1370 CLS : PR I NTS 15, K. ; S39,M+" 1 B" 

1580 PRINT864,LEFTf < C,16 >+D+D+LEFTf<D,8 ) 

1590 PR I NTS 128, LEFTf 1 ' 1, 16 )+flfl+fl+LEFTf < B, 8 ) 

1600 PR I NTS 192, RI GHTf •'J, 16 )+J+J+LEFTf<J, 7) 

1610 REM 

1620 PRINTS271,K;S293,M+" 2 B" 

1630 PRINTS320,D+D+D+LEFTf < D,4 ) 

1640 PRINTS384,LEFTf<E,8 >+F+G+LEFTf<H,16 ) 

1650 PRINT844S,RIGHTf <J,8 )+J+J+LEFTfCJ,16 > 

1660 REM 

1670 PR INT8527, K :• S551, M+ " 3 B" 

1680 PRINTS576,E+E+E+LEFTf< E,3 > 


1700 PRINTS704,J+J+J+LEFTfCJ,3> 

1710 REM 

1720 PRINTS783, K.; S807, M+" 4 B" 

1730 PRINTS832,LEFTf< E,12>+E+F+LEFTf<F,12) 

1740 PRINTS896,LEFTf<H,12)+1+flfl+LEFTf<fl,11 ) 

1750 PRINTS960,RIGHTf<J,12)+J+J+LEFTf<J,11>.; 
1760 GOTO2400 
1770 REM 

1780 CLS : PR I NTS 15, K.; 839, M+ " 5 B" 

1790 PR INTS64, F+F+F+LEFTf ■' F, 4 > 

1800 PRINTS128,LEFTf<D,4 )+E+F+G 

1810 PR I NTS 192, RI GHTf < J, 4 )+J+J+LEFTf C. J, 20 ) 

1820 REM 


1830 PRINTS271,K;8295,M+" 6 B" 

1840 PRINTS320,C+G+G+LEFTf<G,4) 

1850 PRINTS384,LEFTf<fl,16)+B+C+LEFTf<0,8) 
I860 PR1NTS448,RIGHTf<J,16)+J+J+LEFTf<J,3) 
1870 REM 

1880 PRINTS327, K> S351, M+" 7 B" 

1890 PRINTS376,G+G+LEFTf<G,8)+LEFTf<H,16) 
1900 PRINTS640,LEFTf< G, 8 )+H+I+LEFTf< flfl,16) 
1910 PRINTS704,RIGHTf<J,3)J+J+LEFTf<J,16) 
1920 REN 

1930 PRINTS783,K.;5807,M+" 8 B" 

1940 PRINTS832, H+H+H+LEFTfH, 3 ) 

1930 PRINTS896,D+E+F+LEFTf<G,3) 

1960 PRINTS960,J+J+J+LEFTf<J,3); 

1970 GOTO2400 
1980 REM 

1990 CLS : PR I NTS 15, KS39, M+ " 9 B" 

2000 PRINTS64,I+I+I+LEFTf<I,3) 

2010 PR I NTS 123, LEFTf-.' flfl, 12 >+A+B+LEFT f < C, 12) 


2030 

2040 

2058 

2060 

2070 

2030 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

27-Plfl 

2600 

2700 


REM 

PRINTS271,K i S295,M+"10 B" 

PRINTS320,I+I+I+LEFTfC1,4) 

PRINTS384,LEFTfCF.4)+G+H+I 
PRINTS448,RIGHTS J,4)+J+J+LEFTf<J,19) 

REM 

PRINT8518,"* * "iL," * * ";S548,M+"11 B" 

PRINTS576,LEFTf<flfl,4)+flfl+flfl+RIGHTfCflfl,20) 

PRINTS640,LEFTf<C,16)+D+E+LEFTf<F,7) 

PR INTS704, RI GHTf ( J, 16 )+J+J+LEFTf (. J, 7 ) 

REM 

PRINTS774, "* * ” L; " # * " ; 8804, M+" 12 B" 

PRINTS332,LEFTf<flfl,S)+fl+fl+LEFTf<fl,16) 

PRINTS896,LEFTf<1,8)+AA+fl+LEFTf< B,15) 

PRINTS960,RIGHTf<J,8 >+J+J+LEFTf<J,15); 

GOTO2400 

REM 

CLS: PR INTS9, " * * " .! L ; " * * " j S34, M+ "13 B " 

PRINT864,R+fl+fl+LEFTf< fl,3) 

PRINTS128,F+G+H+LEFTf<1,4) 

PRINTS192,J+J+J+LEFTf<J,3) 

REM 

PRINTS263, "f % ".;L.;" * * ";S290,M+" 14 B" 

PRINTG320,B+B+B+LEFTf< B,4) 

PRINTS384,LEFTf<B,12)+C+D+LEFTf<E,12) 

PRINTS448, RI GHTf < J, 12 )+J+J+LEFTf < -J, 11 ) 

REM 

PRINTS521, "% % "jL.;" * *";S546,M+" 15 B" 

PRINTS576,B+LEFTfCB,4)+C+C 
PR INT8640, LEFTfC. H, 4 )+1 + AR+A 
PRINTS704, RIGHTf 1 ' J, 4 >+J+J+LEFTf < J, 19 ) 

REM 

PRINTS777, "% * "iL.;" * * ";G302,M+"16 B" 

PRINTS832,C+C+C+LEFTf<C,4) 

PRINTS896, LEFTf < E, 8 )+F.+G+LEFTf< H, 15 ) 

PRIHTS960,gIGHTf<J,16)+J+J+LEFTfCJ,7 )} 

GOTO 2400 

Pf=INKEYf ; IF Pf="" THEN 2400 ELSE 380 

REM 

REM 

REM AS MEMORY LOCATIONS 16 THOUSAND & OVER ARE IN THE 
MIDDLE, AS IT WERE, THEY HAVE BEEN IDENTIFIED 
WITH THE # * * 8, OFFSET TO ATTRACT ATTENTION 



THIS IS AREA '1 fl' 

THIS I 

S AREA 

1 

B' 




THIS IS AREA '2 fl' 

THIS I 

3 AREA 

-2 

B' 




THIS IS AREA ‘3 fl' 

!! THIS I 

S AREA 

•3 

B' 




THIS IS AREA '4 fl' 

THIS IS AREA 

'4 

B' 


. * 

* t * PRESS ANY KEY * * * 

.. TO CONTINUE * f 

# 

* 



Me k 

\>elov- 


PMT-0crf £>£Jl on) it'f A/tElh IA (a<> tte*. ok ^)l s ciefn) 


ROW tt 1 fl 
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3 
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3 
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6 

6 

6 

6 

6 

6 
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7 

7 

7 

7 

7 

7 
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7 fl fl fl fl 8 
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8 

8 

8 

8 

9 
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0 

1 

2 

3 

4 

5 

6 

7 

8 9 0 1 
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2 

3 

4 

3 

6 

7 

s 

9 0 1 2 3 4 
ROW # 2 fl 

5 

6 

7 

8 

9 

0 

1 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 4 4 

4 

4 

4 

4 

4 

4 
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4 

4 

4 

4 
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4 
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4 

5 

5 

5 

5 

5 

5 

4 

5 

6 

7 

8 

9 

0 

1 

2 3 4 3 
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6 
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9 

0 

1 

2 

3 4 5 6 7 8 
ROW # 3 fl 

9 

0 

1 

2 

3 

4 

5 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 4 4 

5 

5 

3 

5 

3 

5 

5 

5 5 3 3 3 3 

5 

5 

5 

5 
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5 
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8 

9 

9 

9 

9 

9 

9 
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0 

0 

0 

0 

0 

0 

0 

0 0 0 1 1 1 

1 

1 

1 

1 

1 

1 

1 

8 

9 

0 
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2 

3 

4 

3 

6 7 8 9 
13000 + 

0 
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5 
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ROW # 4 fl 
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4 

5 
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3 
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3 
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3 

3 

5 

5 
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5 
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3 
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5 
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5 

5 
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6 

6 

6 

e 
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6 
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7 

7 

7 

g 

g 
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8 

2 

3 

4 

3 

6 

7 

8 

9 

0 12 3 

4 

5 

6 

7 
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9 
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User Machine: TRS-80 Level II 
- uses 14K. Designed for Mod 
1 but will run on Mod III - 32K 
upwards but you must delete 
the Mem Size pokes in Line 1. 
Disk systems without DOS 
boosted. Operates with or with¬ 
out L/C installed. 

Development: Originally the 
program was written entirely in 
Basic but the computer used to 
take about 40 seconds after 
each player’s turn to scan pos¬ 
sibilities and store and retrieve 
information from previous 
calls. 

This was unacceptable so I 
delved into assembler for a 
while and the resultant machine 
code allows for very fast tur¬ 
naround. If someone wants to 
disassemble it, it resides from 
7273H to 74D3H. 


Alan Goodison 
Mooroopna Vic 


1 POKE16561,114=POKE16562,114=G0SUB89 

2 CLERR509 = DIMNTC 21 > = DIMRT< 6 ) = DEFINTR-Z = 2=30000 = Y=30150 = 0=30160 = G0SUB91 = G0SUB92 = 
PR INTS770 , CHRTC 30 > < G0SUB57 

3 PR INTGS36, CHRf ( 31 > J = INPUT " ComP u.ter P 1ay er' s -number " ; NT = C1 =S'RL< NT > = IFC1 >N0RC 1 < 1 
PR1NTGS36,"1 to "H" Please."CHRT(30 > = F0RX=1TO1500 = NEXT = G0T03ELSEF0RX=1T021= POKEZ 
+C1*21+X,7=NEXT 

4 PRINTG9Q0,CHRTC31>; =INPUT"Who's 9oin9 to deal";NT = B2=VRL<NT > : IFD2>N0RB2<1THENP 
RINTG900,"1 to "N" Please."CHR$C30 >=FORX=1TO1500=NEXT = G0T04ELSEG0SUB63 = GOTO107 

5 V=1 - PRINTG640, "Enter you.r own cards < by number | : ■ PR INTG710, "Enter zero when 

complete"> =C3=l=G0T058 

6 CLS = W=0=PRINTTRBC3 >"SUSPECTS";TRB<26)"IMPLEMENTS";TRBC47 >"ROOMS"= PRINT = PRINT" 
"NT< 1 >i TRB< 24 >N»< 7 >; TflBC 44 >NT< 13 > = PRINT" "NT< 2 >; TRBC 24 >Nf < 8 >; TRB< 44 >NT< 14 > = PRINT 
" "NT< 3 >.; TRB< 24 >NT< 9 TRB< 44 >N*C 15 > = PRINT" "NT< 4 >; TRB< 23 >N»< 10 >; TRB< 44 >NT< 16 > 

7 PRINT" #N$<5>;TfiB<23>Ntai >;TnB<44>N« 17 > = PRINT" "NT< 6 >; TRB< 23 >NT< 12 >; TRB< 44 >N 
18 > = PRINTTRB-: 44 >NT< 19 > = PRINTTRBC 44 >NT< 20 > = PRINTTRBC 44 >NT< 21 > = IFV=0THEN5ELSEPR I 

NTG646, TT ■ PRINT= PR I NT "Who's callin'? - Player no (Zero for display - else 1 t 
o"N">"; 

8 PR INTG793 , i 'l NPUTU = PR INT3796, CHRT< 30 > = I FU=0THEN79ELSET=U 

9 INPUT"SusPect Person card <1 to 6> = "#P=INPUT"SusPect Implement card (7 to 1 
2 > =";I = INPUT"SusPect Room card <13 to 21)=";S =IFP<10RP>60RI<70RI>120RS<130RS>21 
0RIJ<0ORU>NTHENTT= "++ Try a9air. **" = G0T06ELSETT=" " 

10 CLS=R=T+1=IFR>NTHENR=1 

11 PRINT = PRINTNT<P>" "Nf(I)" " NK S > : PR 1 NT = PR I NT = I Ffl=C 1 THEN 13ELSEPRI NT " flsk. 

"RT<R> =PRINT=PRINT"Was a card shown? - Press Y/N" 

12 RT=INKE Y*=IFRT="Y"THEN20ELSEIFRT="N"THEN17ELSEIFRT="E"THENB8ELSE12 

13 IFPEEK<Z+fi*21+P>sfiORPEEI«Z+R*21 + I )=R0RPEEK< Z+fl*21+S >=RTHEN15ELSEPRINTRT< Cl > * P 
RINT = PRINT"Say - Sorry "fi$<U>", I can't help you."=PRINT<PRINT"Press sPace ba 
r to continue" 

14 RT»INKEYT=IFRT=""THEN14ELSEIFRT="E"THEN80ELSE18 

15 PRINT : PRINT ! PRINTRTCCl> ", Please show your card to "RT<U> = PRINT = PRINT = PRINT"P 
ress space bar to continue" 

16 RT=INKEYT«IFRT=""THEN16ELSEIFRT="E"THEN88ELSE21 

17 POKEZ+R+21+P,7 = POKEZ+R+21 + 1,7 = POKEZ+R+21+S, 7 

18 U=14+1=IFW=N-1THEN21ELSET=T+1=IFT>NTHENT=1 

19 GOTO10 

20 IFU<>C1THENG0SUB56ELSEPRINT=INPUT"Enter card shown";0 =IFCK >PRND0<>IflND0<>STHE 
N20ELSEIFPEEK< Z+fi+21+0 >=RTHEN21ELSEPOKEZ+10, INK < Z+R+21 V256 > = PQKEZ+9, Z+R*21-INT 
<< Z+R+21V256>*256 = P0KEZ+11,R = POKE16526,189 = POKE16527,115 = X=USR< Z+fl*21+0 > 

21 CLS = GOSUB30 = G0SUB31= G0SUB23 = GOSUB30 = G0SUB31= G0SUB26 = GOSUB30 = G0SUB31 

22 G0T073 

23 POKE16526,25 = POKE16527,116 = P0KEZ+159,6 =IFR1=0THENPOKEZ+157,6 = X=USR<Z+22> 

24 IFR2=0THENPOKEZ+157,6 = X=USR< Z+28 > 

25 IFR3<>0THENRETURNELSEPOKEZ+157,9 = P0KEZ+159,9 = X=USR<Z+34 > = RETURN 

26 POKE16526,108 = POKE16527,116 =IFR1>0THENP0KEZ+157,6 = X=USR< Z+22 > 

27 IFR2>0THENPOKEZ+157,6 = X=USR< Z+28 > 

28 IFR3 >0THENPOKEZ+157,9 = X=USR<Z+34 > 

29 RETURN 

30 POKE 16526, 197 = POKE 16527,115 = X=IJSR< Z+22 > = RETURN 

31 IFR1>0THEN32ELSEPOKE16526,115 = POKE16527,114 = X=USR<6 > = fll=X 

32 IFR2 >0THEN33ELSEPOKE 16526,168 = POKE 16527,114 = X=IJSR< 6 > = R2=X 

33 IFR3 >0THENRETURNELSEPOKE16526,179 = POKE16527 ,114 = X=USR<9 > = R3=X = RETURN 

34 0NC2< C3>G0T035,36,37,38,39,40,41,42,43,44,45,46,47,48.49.50.51.52.52.54.55 

35 C4=15488=RETURN 

36 C4=15552=RETURN 

37 C4=15616 = RETURN 

38 04=15680=RETURN 

39 C4=15744=RETURN 

40 C4=15808-RETURN 

41 C4=15511=RETURN 

42 C4=15575=RETURN 

43 04=15639=RETURN 

44 04=15702 RETURN 

45 04=15766=RETURN 

46 04=15830=RETURN 

47 04=15531'RETURN 

48 04=15595.RETURN 

49 04=15659=RETURN 

50 04=15723=RETURN 

51 04=15787 RETURN 

52 04=15851 RETURN 

53 04=15915 RETURN 

54 04=15979=RETURN 

55 04=16043 RETURN 

56 IFPEEKC Z+fi#21+P >=flORPEEK< Z+fi*21 + I )=flORF'EEK< Z+fl*21+S >=flTHENRETURNELSEF'OKEZ+l, P 
= POKEZ+3, I-P = P0KEZ+13, S-1 = POKEZ+5, © = P0KEZ+11, Fl = POKE 16526,202 = POKE 16527,114 = X=USR 

Z+fl*21 > = RETURN 

57 PRINT8772,CHR$C 31), =INPUT"Number of Play ers"=NT = N=VRL<NT > =IFN<20RN>6THENPRINT 
8772, "2 to 6 Please. "CHRT-: 30 > = FORX=1TO1500 = NEXT = GOTO57ELSEPOKEZ+20, H = POKEZ+17,2 
1*N+1.RETURN 

58 PRINTG896,CHRTC 31>, =INPUTNT=IFVRL(NT >=0RNDNT<>"0"THEN58ELSEC2C03 >=VRL< NT > 

59 IFC2C 03 > >21THEN58ELSEI FC2< 03 X >0THENGOSUB34 = P0KEC4,94 = 03=03+1 = PR I NT8896 , CHRT'- 
30 > = G0T058 

60 CLS = PRINTG330,"fire these cards correct? - Press Y/N"= PRINT = FnRX=lTR02-l= PR.I 
NTTRBC10 >N$<C2<X > > = NEXT 

61 RT=INKEYT=IFRT="N"THENV=0 = G0T06ELSEIFRT<>"Y"THEN61 

62 F0RX=1T0C3-1= F0R0=1TON = POKEZ+0+21+C2< X>,7 = NEXT = POKEZ+C1+21+C2<X >,C1= NEXT = GOTO 
87 

63 S3=INT(18/N > = F0R0=1T0N = POKEQ+O,S3 = NEXT = S3=S3+1 = IFN=4THEN64ELSEIFN=5THEN68ELSE 
RETURN 

64 0ND2G0T065,65,66,67 

65 P0KEQ+D2+1,S3 = P0KEQ+D2+2,S3 = RETURN 

66 POKEQ+4,S3 = POKEQ+1,S3 = RETURN 

67 P0KEQ+1,S3 = POKEQ+2,S3 = RETURN 

68 0ND2G0T069,69,70,71,72 

69 P0KEQ+D2+1,S3 = P0KEQ+D2+2,S3 = P0KEQ+D2+3,S3 = RETURN 

70 POKEQ+4,S3 = POKEQ+5,S3 P0KEQ+1,S3 = RETURN 

71 POKEQ+5,S3 = POKEQ+1,S3 = POKEQ+2,S3 = RETURN 

72 POKEQ+1,S3 = POKEQ+2,S3 = POKEQ+3,S3 = RETURN 

73 I FR 1 >0RNDL 1 =0THENPT=f11 DTf. N$< R1 ),3> = XT= " I ' ve found the murder er ! ! " = X1 T = " The mu 
rderer - "=L1=1 





74 IFR2>0RNDL2=0THENI*=MID*CN*CA2>,4 ) *Y*="I've found the murder weapon!!" : Y1*="T 

he murder weaPon - "* L2=l 

75 IFA3>0flNDL3=0THENS*=MID*C N*C R3 ), 4 } : Z*=" I ' ve found the murder room ! ! " : Zl*="The 

murder room - " : L3=1 

76 IFLl+L2+L3=3THENE*="To 4uit the Pro9ram Press Q"+CHR*C226)+" To return to d 
isPlay Press D" 

77 CLS*PRINTS128,X**PRINT*PRINTY** PRINT *PRINTZ**PRINTS724, "For display - Press 
D"*PRINT27S8,"For next Player - Press N" 

78 R* = INKE Y* : IFR$="D"THEN79ELSEIFR*="N"THEN87ELSEIFR*="E"THEN88ELSE78 

79 CLS : PRINTTRBC12 )"CM PP RG MP MS MW DR CR RE RO LP SP"*M=11*F0R 

0= 1 TON * D*=LEFT*C R *C 0 >, 9 > * PR INTD* ; * F0RX= 1T06 = PR INTTRBC M >PEEKC Z+0*2 1 +X > ; •• M=M+4 * NEX 
TX * M=M+4 * FQRX=7TQ 1 2 * PR I NTTRBC M >PEEKC Z+0*21+X >; * M=M+4 * NEXTX * M=11 * PRI NT * NEXTO ' PR IN 
T 

80 PR INTTRBC 12 > " HR LO DR KI Bfl CO 81 LI ST"* M =11 * F0R0=1T0N * D*=LEFT*C A*C 0 
>, 9 > * PR I NTD* i * F0RX**= 13T021 * PR I NTTRBC M >PEEKC Z+0*21+X >; * M=M+4 * NEXTX * M= 11 * PR I NT •• NEXT 
0* IFl_l+L2+L3>0THENPRINTi2963, "For answers - Press fl"; 

81 PRINT2995, "Press space bar to continue"; 

32 R$=INKEY*=IFR*=""THEN82ELSEIFR#="R"THEN83ELSEIFR$="E"THEN88ELSEIFR*="Q"THEN85 
ELSE87 

83 CLS : PRINT8460 /X1%; P* *PRINTG524,Y1 $;I % * PRINT8588,Z1 % ;S**PRINT 8866 ,E**PRINTS994 

, "p r ess sPace bar to continus"; 

84 R*= I NKEY* * I FR*- " " THEN84ELSEI FR$=" Q" THEN85ELSEI FR*= " D " THEN79ELSEI FR*= " E " THEN 88 
ELSE87 

85 CLS*PRINT8460,"Do you. want another Same?" 

86 R*=INKEY*•IFR**=""THEN 86 ELSEIFR*="Y"THENRUN2ELSEEHD 

87 POKE16526,191 = POKE16527,116 = X=USRC0 >* G0T06 

80 POKE16526,203 * POKE16527,116 = X=USR< 0 > = A 1=0 = A2=0 = A3=0 = L1=0 = L2=0 = L3=0 = X*=""= Y*=" 

" *Z*="" *X1*="" = Yl*="" ..P*= " " : i $= "" : s$="" = E*= "" = T*="RePlay last hand *: 

=G0T06 

89 CLS = PRINTCHRfC23 > = PRINT8778,"Loading Data ...."* F0RX=1T021= RERDN* = NEXT = F0RX= 
29299TO29907 = RERDR = POKEX,R *T=T+R=IFT>255THENT=T-256 

90 NEXT =IFT<>156THENPRINT8842,"Incorrect Data"= ENDELSERESTORE = RETURN 

91 CLS * PR I NTCHR*< 23 ) = FORX=0TO 125 = SETC X, 1 > = NEXT = F0R0= 1T031 * SETC 125,0 ) = NEXT * F0RX= 1 
24T00STEP-1= SETC X,31> = NEXT *FORO=31T01STEP~1= SETC 0,0 ) * NEXT >PRINT8344,"CLUEDO"; = RE 
TURN 

92 F0RX=1T021 *RERDNfCX> = NEXT = POKE16526,177:POKE16527,115 = X=USRC2 > = X=USRC Z+155 > * P 
OKEZ+7 ,8 = PRINT8770, "Do y ou want instructions?" 

93 R*«INKEY*=IFR*="N"THENRETURNELSEIFR*<>"Y"THEN93 

94 CLS = PRINTTRBC 26 )"CLUEDO"= PRINT = PRINT"Introduction"= PRINT"This Pro 9 ram is not 
a 9ame in itself but is used within one. It is designed to be used with the PoPu 
lar board game of the same name. Produced by Murfett. 11 

95 PR I NT "The computer will Play one Player's hand in the 9arne and will come up 
with Chopefully) the right answers, (as well as catchin9the cheats!)"=PRINT=PRI 

NT"ExP1anation of inP uts = 

96 PR I NT "Number of Players-' from 2 to 6 " = PRINT "Computer Player's number* any num 
ber u.P to the total P layers. " = PRINT"C Players are numbered in a clock-wise direc 
tion. >"=PRINT"Who's to deal* what is dealer's number?" 

97 IFINKEY$=""THEN97ELSECLS = PRINT"Durin9 the 9ame *"* PRINT * PRINT"Firstly, you mus 
t understand the board 9ame itself." = PRINT * PRINT"The Player using the computer w 
ill need to familiarise himself with the DISPLRY which is available after each 
Player's turn." 

93 PRINT"Rs the 9ame develops the Player will obtain clues as to where tomove on 
the board."*PRINT"The Program will ask for information to be given on what is h 
aPPening - i.e. who is calling, was a card shown, etc." 

99 PRINT"If incorrect information is entered during the Play, Press E at any tirn 
e and the hand will be re-Played."* PRINT"To <Hi.it the Program Press Q" 

100 IFINKEY$=""THEN100ELSECLS*PRINT"The DISPLRY - CM PP RG MP MS MW" 

*PRINTTRBC10>"Tom 7 7 10 1 7"* PRINTTRBC10)"Mary 2 7 7 

0 7 7" 

101 PRINTTRBC 10 )"Harry 7 0 7 7 7 7"* PRINTTRBC10 >"Sue 7 7 

797 4"*PRINT • 

102 PRINT"The* sample display above shows information about the PERSON"=PRINT"9ro 
up of cards.CCM is Col Mustard, PP is Prof Plum etc)"*PRINT"The display shows th 
at Tom CP layer 1) has Rev Green and Miss S. Mary C2> has CM and Sue C$-> has MW." 

103 PRINT"fl number 7 means that the Player does not hold that card i.e. neithe 
r Tom, Mary or Sue hold Prof Plum as they all have a 7 forthat card."=PRINT"Thus 

it must be Harry's or- it's the murderer. " 

104 IFINKEY*=""THEN104ELSEPRINT8384,CHR*C31); *PRINT"R zero means - I don't know 
yet."=PRINT"The 9 for Sue means that she holds MP or a card in another group- Ca 
Iso shown with a 9). These numbers will be changed as more deductions are made. 
"= PRINT 

105 PRINT"Rfter several Practice runs the display will be very useful."*PRINT"Wh 
en answers are found this will be indicated after each hand."*PRINT *PRINT"Good 1 
uck!"; 

106 IFINKEY*=""THEN106ELSE91 

107 CLS = F0RX=1TON = PRINT"Enter P 1 ay er "X"'s name " ; * INPUTA*CX)* PRINT * NEXT * G0T06 

108 DRTR1. Col Mustard,2. Prof Plum,3. Rev Green,4. Mrs Peacock,5. Miss Scarlett 
, 6 . Mrs White,?. Da99er, 8 . Candlestick,9. Revolver,10. RoPe,ll. Lead Piping,12. 
Spanner 

109 DRTR13. Hall,14. Lounge,15. Dining Room,16. Kitchen,17. Ball Room,18. Censer 
vatory,19. Billiard Room,20. Library,21. Study 

110 DRTR205,127,10,36,221,33,49,117,17, 21,0, 237, 75,68,117,65,221.22?,253,225,221 
,126,21,254,7,32,13,13,40,4,221,25,24,242,108,38,0,195,154,10,45,40,248,72,253,3 
5,36,253,229,221,225,24,223,205,127,10,221,33,55,117,38,7,24,2 00 ,205, X 27,18 

111 DRTR221,33,61,117,38,13,24,189,42,57,117,237,91,49,117,25,126,254,7,201.285, 

127.10.34.57.117.237.91.49.117.74.205.197.114.32.6.12.121.254.2.40.27.58.53.117, 
60,50,53,117,254,3,40,96,254,2,40,6,237,91 

112 DRTR51,117,24,224,237,91,61,117,24,218,205,190,114,32,14,237,91,51,117,295,1 

97.114.32.5.237.91.61.117.25.34.63.117, 126, 186,40,117,70,90,42,37,117,28,128,254 
,22,40,106,35,120,190,32,245,114,24,242,237,91,59,117,33,198,117,25,52,229,193,3 
3 

113 DRTR208,117,25,10,190,192,42,57,117, 20,122,254,22,200,35,126,187,40,246,54,7 
,24,242,205,190,114,40,2,186,192,237,91,51,117,265,197,114,40,2,186,192,237,91,6 
1,117,205,197,114,40,2,186,192,42,55,117,35,34,55,117,77,205,190,114,46,1,112 

114 DRTR237,91,51,117,205,197, 114,40,1, 113,237,91,61,117,205, 197, 114,290,113,201 
,42,63,117,1,235,255,58,59,117,61,40,3, 9,24,250,58,68,117,1,21, 0 ,54,7,61.48.8,9, 
24,248,42,63,117,58,59,117,119,195,40,115,205,127,10,14,155, 54, 0 ,35,13,32,256 

115 DRTR201,205,127,10,22,0,195,14,115,205,127,10,22?,221,225,58,55,117,237,75.6 
5,117,254,8,200,237,177,40,6,221,229,225,61,24,239,43,34,63,117,35,237,177.49.?4 
1,8,42,63,117,229, 253,225,17,187,138, 25, 30,235,125,36,254,21,49,6,259.1. .116.13 1 

11 6 DRTR24,245,79,253,43,61,32,251,253,34,57,117,124,50,59,117, 33 ,P?,117,?,295,1 
53,115,8,24,192,205,127,10,62,0,50,215,117,205,97,116, 126■186•40.2°.254.7.250,63 
,116,32,22,9,29,32,241,33,295,117,53,49, 18,253 

117 DRTR229,225,35,24,226, 33,215,117,52,24,238,253,22?,221,225.24,232,58,297,117 
,61,33,215, 117, 190, 192,58,68,117,221,22?, 225,54,7, 61,299, ?, 24.24? .],.?] . 0 . ?97 . ? 1 . 

68.117, 229,253,225,201,295 • 127, 10 , 295,97.116.126,254.7, 49.22,9.2? ■ 32 . ;"47.5? 

118 DRTR 68 , 117.61.186,49.14.33, 295.117.5?. 200 • 253.22? • 225.35.34.22- . 20.24 ! . 33 

7.91,68, 117, 253,22? . 225.20.126,254 . ?, 32, 3 , ? , 24,247.186.40 • 22': • I'4 • 63 • 1 1 7.133 59 . «*=; 
9, 117,22,0,33, 48, 117.9,61 -32.252, 34.57 117,42, 63, 11?. 205. 14 . 115 . l? 5.1 -n . ] l 

1 19 DRTR33, 79, 117, 17,218, 117.1. 135,0.237.176,201.33.218, 117.17.70.11.". ! 05 :Y'. 1 i 








Stockmarket is a game I 
wrote a few months ago. 

Lines Function 
10-300 Introduction 
310-450 Displays table 

550-660 Buying shares 

670-720 Buying more shares 
750-1180 Select a change in 
trends 

1190-1210 Print it 
1220-1370 Sell shares 
1380-1470 Assign values for 
graph 

1480-1670 Graph routine 
1680-1730 Find status (up/ 
down) 

1740-1900 Quit routine 
This simulation is designed 
for the System 80/TRS-80 
machines and uses PRINT@ 
and PRINTUSING otherwise I 
see no problems in conversion 
to other machines. The program 
runs on a 64 character screen 
and occupies about 9K. 


David Thomas 
Yandina Qld 



10 REM STOCK MARKET 

20 CLS : CLEAR1000 i DEFINTA-Z : WE=0 : F$<1)="-" : F$(2)=" + " : F$(3>=CHR*(34) : DIMBS(8) 

30 F0RX=1TO8:WOO=0 = NEXTX : L*="**#####.##" 

40 PRINTE0/STRING*64,"*"); 

30 F0RC=64T0448STEP64 •• PRINT8C, ; iPRINTfiC+63, "*"; =NEXTC 
60 F0RC=449T0311=PRINT®C, "*"; =NEXTC 
70 PRINT888,"* STOCK MARKET *"; 

80 pr iNT® 132, "mmm*******" j 

90 PRINT8216,"BY DAVID THOMAS"; 

100 PRINT@323,"Enter -'0' if you accidently Press buy or sell and you want”; 

110 PRINT8387.. "neither." ; 

120 FORC=1TO700 ! NEXTC 
130 PRINT8532," 

140 INPUT"How many Players <1 to 3>";A 
130 IFA<1ORA >15PRINTCHR* 27 >CHR* 29 )}- GOTO130 
160 DIMA*A) 

170 F0RB*1T0A 
180 PRINT8660,""; 

190 PR I NT" Player ";6;"'s name is"; < INPUTA*B) 

200 PR INTCHR* 27 >CHR* 29); 

210 NEXTB 

220 PRINT8707,""; >INPUT"Delay between 9raPhin9 (e9. 10 = 1 9raPh every 10 9oes)" 
;TR 

230 IFTR<1QRTR>40PRINT@771,"Try a9ain , Please”;‘GOTO220 
240 CLS : F0RB=1TOA ! PRINT"Play er#"; B;" is "A«B)*NEXTB 
230 PRINT"Press <newline) to continue" 

260 I ** INKEY* •• IFI *=CHR* 13 >GOTO270ELSEGOTO260 
270 F0RC»1T08*READB* = C*C)*BS <NEXTC 
280 FORC*1TOA ! M< C )=1000 ! NEXTC 
290 FORC=1T08 ! READD : D(C) S D'NEXTC - 
300 K=1 

310 CLS-PRINT80," COMPANY", "PRICE","STATUS"," ASSETS" 

320 F0RP=1T08:PRINT®P*64,P;C* P),D(P),,VH<PVV(P•NEXTP 

330 F0RC=98T0388STEP64 

340 GOSUB1680 

330 PRINT8C,F*IU>; 

360 NEXTC 

370 PRINT=PRINTA*(K)"'s turn"=PRINT"Vour liquid assets are !: PRINTUSINGL*;M<K) 
380 PRINT"'B' BUY STRING*9,32);"'S' SELL";STRINGSC 8,32);"'N' NO TRADING";STRI 
NG*9,32);"'Q' QUIT"; 

390 PRINT"WELL?"; 

400 I*=INKEY* =IFI*=""GOTO400 

410 IFIf<>"B"ANDIf<>"S"ANDI*<>"N"ANDI§<>"Q"GOTO400 

420 IFI*="Q"GOTO1740 

430 IFI*="B"GOTO460 

440 IFI*="N"GOT0470 

430 IFI*="S"GOTO330 

460 GOSUB530 

470 GOSUB730 

480 K*K+1«IFK*A+1K*1 

490 WE*WE+1 •• IFWE=TRGOTO300>ELSEGOTO520 

300 GOSUB1480 

310 WE=0 

320 GOTO310 

530 GOSUB1220 

340 GOTO480 

350 PRINT:INPUT"WHICH COMPANY <1 TO 8>";NM 
360 IFNM=0RETURN 

570 IFNM<1ORNM>8PRINTCHR*( 27 >CHR* 27)CHR*(29);=GOTO350 
580 I FK=W< NM JTHEN670 

590 IFVV(NMX >0THENPRINT"ALREADY BOUGHT"= F0RX=1TO300 ; NEXTX:RETURN : ELSE600 
600 INPUT"HOW MANY SHARES";SH 
610 IFSH=0RETURN 

620 IFM(K)-(SH*D(NM))<1PRINT"YOU HAVE'NT ENOUGH MONEY"; >PRINTCHR*27 )CHR*<29);’G 
OTO60O 

630 VV< NM)=K 

640 M< K )=*M< K >-(SH*D< NM )) 

650 VH(NM)=SH 
660 RETURN 

670 INPUT"H0W MANY MORE SHARES";SH 
680 IFSH=0RETURN 

690 IFM<K)-VH<NMMSH*W<NM))<0.01PRINT"YOU HAVE'NT ENOUGH MONEY"; •• PRINTCHR* 27 ) 
CHR*29>; =GOTO670 
700 VH<NM >=VH(NM j+SH 
710 M( K)=M<K)-(SH*0(NM)) 

720 RETURN 







730 DATA KMART,ALCOA,APPLE, AMPOL,MT ISA MINES,BHP,AMOCO,TAP 
740 DATA 40,30,60,70,60,80,30,90 
750 R*RND<10 ) * IFR>2ANDR< 8GOTO990 

760 R=RND<15)*ONRGOTO770,790, 970,810,830,970,830,870,970,890,910,970,930,950,970 

770 0*RND< 19 )+RND( 10) : G*=APPLE WISHES TO ADVISE ALL STOCKHOLDERS. OF A " 

+STRS(0)+"/j RISE IN PROFITS FOR 1982"'D<3)»D(3>+<0/100*D<3>)'XZ<3>=2 
780 GOTO1190 

790 0«RND(20)+? = G*="KMART ANNOUNCES. A "+STR»<0>+"* DEPRECIATION IN S 

HARE PRICES.. DUE TO INCREASED OPERATING COSTS." D< 1 )=D<1 M 0 

/100*D<1 ))‘XZ< 1 >*1 
800 GOTO1190 

P10 O*RND(30)'G*="BHP'S DEFICIT FOP 1982 IS »"+STR*(C)+" 000 000. DU 

E TO STRIKES THROUGHOUT 1982." 'D<6)=D(6)-<0/100*D<6>)'XZ(6)=l 

820 GOTO1190 

830 0=RND<3) : G*="NO."+STRK0)+" SHAFT. AT MT. ISA. HAS CLOSED DOWN BEC 


RUSE OF A CAVE-IN. MARKET FUTURE UNCERTAIN." ' D<5)=D<3>-<<0*10) 

/100*D< 5)) : XZ< 5 >= 1 
840 GOTO1190 

850 G*="NO REPORTS. MARKET STABLE." 

860 GOTO1190 


870 0=RND(5) : PO=RND(20) : G**"PETROL RISES BY "+STRi<0)+" CENTS. A "+STR 

*(PO )+"'/. BONUS RESULTS TO AMPOL SHAREHOLDERS."'D<4 )=D<4 >+<(PO/100)#D<4))' 

XZ< 4 )=2 
880 GOTO1190 

890 G*="NO REPORTS. MARKE T S*ABLE." 

900 GOTO1190 

910 0=RND<30 )+10'G*="ALCOA IS PLEASED TO ANNOUNCE. A BOOM IN THE AL 

UMINIUM INDUSTRY. SHARES RISE BY "+STR$(0)+":c !!!! ." ' D< 2 >=D< 2)+<< 0/1 

00 >*D';2))'XZ<2>=2 
920 GOTO1190 

930 G*=" AIRE A IRS SOAR !!!. 'TAA-."' DC 8 >=D< 8 )-< < RND< 10)+3>/ 

100*D<8))‘XZ(8)=1 
940 GOTO1190 

950 0*RND( 20 )+10'G* 3 "AMOCO. NEW WELL SUNK. "+STR*<0)+"7. INCREASE IN 

PRODUCTION"= D(7 )=D< 7)+(<0/100)*D< 7))'XZ< 7)=2 
960 GOTO1190 

970 G*="NO REPORTS. MARKET STABLE." 

980 GOTO1190 

990 R*RND<15)'ONRGOTO1010,1030,1180,1050,1080,1180,1100,1180,1120,1140,1180,1180 
,1160,1180 
1000 GOTO1190 

1010 Q=RND< 20)' G* 3 "TAA ANNOUNCES. A CLEAR PROFIT OF *"+STR*<0)+" 0 

00 000. FOR THIS FINANCIAL YEAR." 'D<8>=D(8)+<<O/100>*D<8))'XZ<3) 

*2 

1020 GOTO1190 

1030 0*RND<10)+RND<5) : G*="AMOCO ANNOUNCES. A "+STR*<0>+"K DROP IN SHARE 

VALUE." = D< 7 )=D< 7 )-< < 0/100 )*D< 7))' XZ< 7 >= 1 

1040 GOTO1190 

1050 0*RND(40)-RND( 10) = G*="BHF. EUREKA!!!. A NEW VEIN HAS BEE 

N STRUCK. A 2 FOR 1 BONUS IS AVAILABLE FOR EXISTING SHAREHOLDERS. 

.."' I FVV< 6 )=KTHEND< 6 )=D( 6 >*2' ELSED( 6 )»D< 6 )+(< 0/100 )*D< 6)) = XZ< 6 )=2 
1060 XZ< 6)*2 
1070 GOTO1190 

1080 0=RND<20)+RND< 10>+5'G*="MT ISA. LEAD PRICES RISE!!!. DUE 

TO SHORTAGE." ' D< 5 )=D< 5 )+< < 0/100 )*D< 5 >) = XZ(5)=2 

1090 GOTO1190 

1100 0=RND<10>'C* 3 "AMPOL. TANKERS REFUSE TO LOAD OR UNLOAD AMPOL FUEL. 

... PAY RISE CLAIM." = D<4)*D<4>-C<O/100>#D<4)) = XZ<4>=1 

1110 GOTO1190 

1120 G=RND<10 >+RND(5) = G*“"APPLE. NEW TECHNOLOGY.256K chip ALREADY ON T 

HE MARKET.SLUMP IN MICRO SALES." =DC3>«D<3>-C(O'100>*D<3))'XZ<3>»1 

1138 GOTO1190 

1140 0*RND<10 )+RND< 5 )+RND(0) = G*="BAUXITE GLUT. ALCOA REDUCES PRICES B 

Y "+STR*<0>+"* . REFINERY'S REFUSE ANY MORE SHIPMENTS."'D<2)=D<2)-<<O/10 

0)*D<2))'XZ<2)»1 
1130 GOTO1190 

1160 0*RND< 20 )+10 : G*®"KMART SHARES INCREASE IN VALUE. BY "+STR*<0)+"*4! ! 

!. BECAUSE OF BULK BUYING OF ITEMS." 'D< 1 >*D< 1 )+<(0/100>*D( 1 

)> = XZ<1)»2 
1170 GOTO1190 

1180 G*="NO REPORTS. MARKET STABLE." 

1190 PRINT2768, CHRiC 31 ); ‘F0RLL=1T0LEN<G*)'PRINT(?768+LL,MID*<G*,LL, 1 ); - FOROP-1T02 
0'NEXTOP'NEXTLL 
1200 G* 3 "" 

1210 FOROP»1TO500'NEXTOP‘RETURN . 


1220 PRINT'INPUT"WHICH COMPANY <1 TO 8>";WW 
1230 IFWW-0RETURN 

1240 IFWW<1ORWW >8PRINTCHRfC27 >CHR*< 27)CHR*< 29 );= GOTO1220 

1250 IFVV(WW)<>KPRINT"YOU DON'T OWN ";C*<WW>;‘PRINTCHR*<27)CHR*<27)CHR*<29); : GOT 
01220 

1260 IFWW=0RETURN 

1270 IFWW<10RWW>8PRINTCHR*(27)CHR*<29);'GOTO1220 
1280 INPUT"HOW MANY SHARES <0 = ALL>";SH 
1290 IFSHO0GOTO1330 

1300 IFSH=0THENVV(WW )*0'M< K)»M< K)+(D< WW )*VH< WW >) = VH< WW>»0 
1310 1 FVH< 1-JW )VAL0THENVV< WW )*0 
1320 RETURN 

1330 IFSH >VH< WW )PR I NT " YOU DON'T OWN THAT MANY SHARES"; = PRINTCHR*< 27 )CHR*( 29); = GO 
TO1280 

1340 M< K )*M< K )+< D< WW )*SH) 

1330 VH<WW)*VH(WW)-SH 
1360 IFVH(WW)«0THENVV< WW >*0 
1370 RETURN 

1380 U< 1 )=D< 1) = U< 2 )*D( 2)' U< 3 )*D< 3)' LK 4 )*D< 4 ) U( 5 MX 5 ) = U< 6 )=D< 6) ‘ U( 7 >D< 7 ) ‘ U< 8 )* 
D(8) 

1390 M*U<1)'IFU<1)>MTHENM*U(1) 

1400 IFU< 2 )>MTHENM*U(2) 

1410 IFU< 3) >MTHENM*U( 3) 

1420 IFU<4»MTHENM*IJ<4) 

1430 IFU<3»MTHENM=U<5> 

1440 IFU< 6) >MTHENM=U<6) 

1430 IFLK7) >MTHENM=U< 7) 

1460 IFIK 8 >>MTHENM=U( 8 > 

1470 RETURN 
1480 REM 
1490 GOSUB1380 
1300 CLS 
1310 N=8 
1320 L=M 

1530 FORI=191TQ767STEP64 
1340 PR I NT® I, L,' T ABC 11)" -"; CHR*< 149) 

1350 L=L-M/10 = NEXTI 

1360 PRINT8832,0;TABC 12 )CHR*( 141); 

1370 PRINT8843,STRING*C 50,140) 

1380 PRINT®128," KMART",CHR*<143);"ALCOA ";CHR*C143);"APPLE";CHRf<143 

); "AMPOL";CHR*C 143); "M. I.M";CHR*( 143); "B H P";CHR*C 143); "AMOCO";CHR$( 143); "T A A 

1390 FORC=0TO7 
1600 X=D(C+l) 

1610 FORY=0TOINT(X/M#30+.3) 

1620 FORZ=0TOINT<100/N)-2 
1630 SET<INT<100/N)*C+Z+26,40-V) 

1640 NEXTZ = NEXTY'NEXTC 

1630 PRINT5960,"PRESS <NEWLINE) TO CONTINUE" 

1660 I**INKEY*-IFI*=CHR*C13)GOTO1670'ELSE1668 
1670 CLS'RETURN 
1680 ' STATUS FINDER 

1690 IFC=98Q=1ELSEIFC=162Q=2ELSEIFC=226Q=3ELSEIFC=290Q=4ELSEIFC=354Q=3ELSEIFC=41 

8Q*6ELSEIFC»482Q=7ELSEIFC*346Q=S 

L708 IFXZ(Q)=0THENIU=3'RETURN 

1710 IFXZC Q)=1THENIU=1'RETURN 

1720 IFXZ<Q)*2THENIU=2'RETURN 

1730 RETURN 

1740 CLS 

1730 FCRC0=1TOP 

1760 YV<CO)*M0<CO) 

1770 F0RNQ=1T08 

1780 IFVV< NO)=C0THENYY( CO)*VY<CO)+DCNO)*VH< HO) 

1798 NEXTNO,CO 

1800 PRINT20,STRING*< 64,140)' 

1810 F0RQQ=1T0P 

1820 PR INTI? 128, "PLAYER LIQUID ASSE T S INVESTMENTS TOTAL" ' 

1838 PR I NT® 192, "- - - - n > 

1840 PRINTS192+<64*QQ),A*<QG),M<QQ),yy<QQ), vy<QQ)*PK QQ >; 

1830 NEXTQQ 

I860 PRINT2192+( 64*QQ), STRING*' 64.147 "■; 

1878 PRINT'PRINT'INPUT"ANOTHER GAME ";0I9* 

1880 IFLEFT*< 019*,1)="Y"THEH10 

1890 CLS'PRINT "BYE FROM THE STOCKMPRKET ! ,! 

1900 END 


135 
















































Caddyshack is a simple golf- STEP 5: SOUND NOISE,2: 

playing routine. The player NEXT NOISE: RETURN 

swings or putts by entering You might like the machine to 

numbers, which then become sound a beep at the beginning 

the stroke lengths. The ball of each hole - just add this to 

lands somewhere else on the line 20: 20 FOR HOLE = 1 TO 

green; if you’ve estimated your 9: BEEP 

swing well enough it will land in You might like to change the 
the cup and you stroll on to the PAUSE values, 
next hole. A running score is Use is made throughout the 
kept up throughout the play, program of the delay subroutine 

and presented regularly. at line 510. Note how the delay 

Much can be done to improve value, PAUSE, is set at the sub- 

the program. For a start, it’s not routine calls, so that the length 

noisy enough. The ’goodbye’ varies at each call. Thus, the 

routine (lines 470 to 500 inclu- delay initiated at line 400 will 

sive) uses sound, certainly, but run fifty times, while the pause 

the WIN routine could do with a at line 490 will be two hundred 

bit of racket. Try this: 380 FOR runs long. 

WIN = 0 TO 9: GOSUB 520 520 Neville Predebon 

FOR NOISE = 600 TO 750 West Preston VIC 


5 REM - Caddyshack - 
7 CLS 
10 C=0 

20 FOR HOLE=1 TO 9 
30 J=INT(RND(0>*12)-1 
40 SC=0 

50 PAR*INT(RND(O)*4)+2 
60 GOSUB 270 

70 INPUT "Stroke";STROKE: CLS 
80 IF J>24 THEN STRQKE=-STROKE 
90 J=J+INT(STROKE/INT(RND(0>*PAR>) 

100 GOSUB 270 
110 SC=SC+1 

120 PRINT "After that stroke, your score is now";SC 
130 IF J< >24 THEN 70 
140 GOSUB 350 
150 C=C+SC 

160 CLS: PRINT: PRINT TAB(4)}"Your score for";HOLE;"hoie/s is";SC 

170 PAUSE=999: GOSUB 510 

180 FOR LIN=1 TO 29 

190 FOR SPACE=1 TO LIN 

200 PRINT " "; 

210 NEXT SPACE 

220 PAUSE=39: GOSUB 510 

230 PRINT "Stand by-" 

240 NEXT LIN 

250 NEXT HOLE 

260 GOTO 420 

270 IF J>30 THEN J=30 

280 FOR N0ISE=415 TO 545 STEP 5: SOUND NOISE,2: NEXT NOISE 
290 PRINT TAB(3);"Par for this hole >-";PAR 

300 PRINT: PRINT TAB(3);"4## HOLE NUMBER";HOLE;"###": PRINT: PRINT 
310 FOR PUTT =1 TO J-l 
320 PRINT " "; 

330 NEXT PUTT 
340 PRINT "o" 

350 PRINT "-- 

360 RETURN 

370 PRINT "-o-- 

380 FOR WIN=0 TO 9 

390 PRINT: PRINT TAB(7);"You got it in";SC;"strokes!" 

400 PAUSE=49: GOSUB 510 
410 NEXT WIN: RETURN 

420 PRINT TAB(4);"That's the end of that round." 

430 PRINT: PRINT TAB(4);"You scored";C 
440 PRINT TAB(4);"Your average was";INT(C/9) 

450 PRINT: INPUT "Would you like to play another round";ANS* 

460 IF LEFT* (ANS*, 1) ="y" OR LEFT* (ANS*, 1 ) = ,, Y" THEN RUN 
470 CLS: PRINT 3 174,"GOODBYE!" 

480 FOR N0ISE=830 TO 1046 STEP 4: SOUND NOISE,3: NEXT NOISE 
490 PAUSE*199: GOSUB 510: CLS 

500 FOR NOISE*1046 TO 830 STEP-4: SOUND NOISE,3: NEXT NOISE: GOTO 47 
510 FOR DELAY*0 TO PAUSE: NEXT DELAY: RETURN 









ALEN WIPEOUT 


10 REM********************************************************* 

20 REM** ALIEN WIPEOUT ** 

30 REM** By Wayne McCullouqh ** 

40 REM** Darwin N.T. ** 

50 REM** Originally written 16th May 1982 ** 

60 REM** Revised 8th October 1983 ** 

80 CLEAR1000:HS=0 

90 CLS:PRINTTAB<20>;"A lien W i p e o u t":PRINTTAB(20);STRING*(25,134):GOSU 
B990 

100 A1*=CHR*(153)+CHR*(191)+CHR*(157)+CHR*(145):A2*=CHR*(166)+CHR*(187)+CHR*(179 
>+CHR*(132> 

110 A3*=CHR*(156)+CHR*(183)+CHR*(157)+CHR*(148):A4*=CHR*(140)+CHR*(183)+CHR*(157 
)+CHR*(132) 

120 A5*=CHR*(156)+CHR*(175)+CHR*(141)+CHR*(148):A6*=CHR*(152)+CHR*(183)+CHR*(157 
>+CHR*(144) 

130 A7*=CHR*(134)+CHR*(189)+CHR*(151)+CHR*(132): A8*=CHR*(157)+CHR*(183)+CHR*(187 
>+CHR*(174) 

140 A9*=CHR*(166)+CHR*(157)+CHR*(183)+CHR*(132):B1*=CHR*(182)+CHR*(190)+CHR*(182 
>+CHR*(148) 

150 B2*=CHR*(158)+CHR*(191)+CHR*(173):B3*=CHR*(140)+CHR*(179)+CHR*(166)+CHR*(153 
)+CHR*(132> 

160 B4*=CHR*(141)+STRING*(2,153)+CHR*(133):B5*=CHR*(156)+CHR*(179)+CHR*(153)+CHR 
*(133) 

170 B6*=CHR*(167)+CHR*(183)+CHR*(133):B7*=CHR*(174)+CHR*(179)+CHR*(157):B8*=CHR* 
(153)+CHR*(166):B9*=CHR*(155)+CHR*(167) 

180 Cl*=CHR*(182)+CHR*(180)+CHR*(182)+CHR*(148):C2*=CHR*(166)+CHR*(167)+CHR*(132 
):C3*=STRING*(2,166)+CHR*(132) 

190 C4*=CHR*(140)+CHR*(174)+CHR*(179)+CHR*(191)+CHR*(179)+CHR*(191)+CHR*(179)+CH 
R*(157)+CHR*(140) 

200 PRINTA1*;" ";A2*;" ";A3*;" ";A4*;" "jA5*;" ";A6*;" ";A7*;" ";A8*;" ,, ;A9*;‘' " 

;B1 *;" ";B2*;" ";B3*;" ";B4* 

210 PRINT@256, "A1 i ens have invaded the Earths skys, you must aim your photon 1 
aser and destroy as many aliens as possible in the sixty" 

220 PRINT"seconds which the Earth has left." 


230 PRINT"Use the arrow keys to aim, and the space bar to fire. Good luck!"; 

240 FORSOS=1T04:G0SUB1050:NEXTSOS:POKE16396,175:REM DISABLE BREAK 

250 F'RINT@571,CHR*(176);CHR*(140>;CHR*<131);CHR*(131);:PRINT0633,CHR*(160);CHR*( 

134);CHR*(152);CHR*(131);CHR*(134);CHR*(164); 

260 PRINT@697,CHR*(138);CHR*(146>;CHR*(140);CHR*(131>;CHR*(140);CHR*(129>;:PRINT 
@762,CHR*(130)+CHR*(137)+CHR*(164)+CHR*(176)+CHR*(176) 

270 PRINT@590,C4*;:F0RX=48T0116:SET(X,28):RESET(X-l,28) : NEXTX 

280 PRINT@832,"SIR! We have recieved a communication from the alien mothership": 
PRINTCHR*(34):"Prepare to die human!";CHR*(34) 

290 GOSUB1090 


300 FA*="/ "+CHR*(92)+CHR*(26)+STRING*(7,24)+CHR*(92)+" /":FB*=CHR*(92)+ 
" /"+CHR*(26)+STRING*(7,24)+"/ "+CHR*(92):FC*=STRING*(7,32)+CHR*(26)+STR 
ING*(7,24)+STRING*(7,32) 

310 E5*="":E3*="":E4*="":FORX1 = 1T07:E3*=E3*+CHR*(RND(30> +161)+" ":NEXTX1:FORX1 = 1 
T07:E4*=E4*+" "+CHR*(RND(35)+129):NEXT:FORX1=1T03:E5*=E5*+CHR*(RND(30)+157)+" ": 
NE X T X1:CL*=STRING*(15,32) 

320 BASE=475:TIME=60:S=0 


330 CLS:SET(54,0):SET(126,3):SET(10,5):SET(94,8):SET(96,11):SET(76,25):SET(34,28 
):SET(103,35):SET(2,28):SET(61,39) 

340 PRINT0960,"Score ";S;STRING*(14,32); "Hi score ";HS;STRING*(14,32);"Time Left" 
;INT(TIME);:PRINT@BASE,FA*;:LBASE=BASE 

350 Z=RND(21):ONZGOTO360,370,380,390,400,410,420,430,440,450,460,470,480,490,500 
,510,520,530,540,550,560 

360 A*=A1*:GOTO570:REM ALIEN 1 COMES ON SCREEN 
370 A*=A2*:GOTO570:REM ALIEN 2 COMES ON SCREEN 


> 


Alien wipeout is another of the 
‘shoot-em-up’ type games for 
the TRS80/SYSTEM 80. It re¬ 
quires approximately 7K and 
(with minor modifications) will 
run on both 16K and disk based 
machines, the listing here being 
the 16K version. The game it¬ 
self is pretty self explanatory 
but here are a few hints which 
might make you a better player: 

1. The aliens fuel store is lo¬ 
cated at the left uppermost 
point on the aliens ship and get¬ 
ting this point within your sights 
will certainly destroy the alien. If 
you hit the alien anywhere other 
than this point the impact will 
only cause minor damage. 

2. ‘Warping’ from one side of 
the screen to the other disrupts 
your firing and your viewfinder. 
Although you might think you hit 
the alien when in this position it 
is quite possible that the un¬ 
usual space time continuum of 
hyperspace will have absorbed 
your shot. 

3. When the situation arises 
that the alien is on the opposite 
side of the screen don’t waste 
your precious seconds by head¬ 
ing straight for him. Instead 
‘warp’ from one side of the 
screen to the other and you will 
usually be able to catch him 
faster. Although this is a simple 
and quite obvious procedure I 
have included it among your 
hints for the simple reason that 
it is incredibly easy to forget in 
the heat of battle! 

Finally for those of you who 
have disk based systems 

please note the following mod¬ 

ifications to the program. 

Line 80: Insert a CMD‘‘T”: in 
front of the CLEAR command. 
Line 240: Replace the 

POKE16396,175 with 

CMD“BREAK.N” (or the equi¬ 
valent command for your DOS) 
Line 970: Replace the 

POKE16396,201 :END with 

CMD"S” Line 990: Replace the 
POKE16526,62:POKE16527,64 
with 

DEFUSR0 = 16446 
DEFUS 

Lines 1010-1120: Replace all 
USR(0)’s with USR0(0) 


Wayne McCullough 
Darwin NT 
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ALIEN WIPEOUT 


380 A$=A3$:6OTO570:REM ALIEN 3 COMES ON SCREEN 

390 A$=A4f:GOTO570S REM ALIEN 4 COMES ON SCREEN 

400 A$=A5*:GOTO570:REM ALIEN 5 COMES ON SCREEN 

410 A$=A6$:GOTO570:REM ALIEN 6 COMES ON SCREEN 

420 A$=A7$:GOTO570S REM ALIEN 7 COMES ON SCREEN 

430 A$=A 8 '$: GOTO570: REM ALIEN 8 COMES ON SCREEN 

440 A$=A9$:GOTO570:REM ALIEN 9 COMES ON SCREEN 

450 A$=B 1 ■>-: GOTO570S REM ALIEN 10 COMES ON SCREEN 

460 A$=B2$:GOTO570S REM ALIEN 11 COMES ON SCREEN 

470 A$=B3$: GOTO570:REM ALIEN 12 COMES ON SCREEN 

480 A$=B4$:GOTO570S REM ALIEN 13 COMES ON SCREEN 

490 A$=B5$:GOTO570S REM ALIEN 14 COMES ON SCREEN 

500 A$=B6$:GOTO570:REM ALIEN 15 COMES ON SCREEN 
510 A$=B7$s GOTO570S REM ALIEN 16 COMES ON SCREEN 

520 A$=B8$:GOTO570:REM ALIEN .17 COMES ON SCREEN 

530 A$=B9$:GOTO570S REM ALIEN 18 COMES ON SCREEN 

540 At=C1 $:GOTO570S REM ALIEN 19 COMES ON SCREEN 

550 A$=C2*s GOTO570S REM ALIEN 20 COMES ON SCREEN 

560 AS=C3*:REM ALIEN 21 COMES ON SCREEN 
570 A=RND( 888 ):B=A:PRINT@A,A$; 

580 P=PEEK(14400):IFP=0THEN780:' GOTO MOVING ALIEN 
590 IFP<>128THEN710:REM FIRE 

600 PRINT©BASE, FB$;:PRINT@A,A*;:GOSUB1010:IFA>BASEANDA<BASE+70RA>BASE+64ANDA<BAS 
E+71THEN620 

610 FORI = 1TO50:NEXT I:PRINTSBASE,FA$;:GOTO780: 'GOTO MOVING ALIEN 

620 P1 =A-3: P2=A-67! P3=A+61: P4=A-128 s P5=A+128: PR I NT@P 1 , E4*j I FP2>0ANDP2< 1024THENP 
RINT@P2,E3f; 

630 IFP3>0ANDP3<1024THENPRINT@P3,E3*5 
640 IFP4 >0ANDP4<1024THENPRINTQP4,E5*J 
650 IFP5>0ANDP5<1024THENPRINT@P5,E5$$ 

660 ONRND(3)GOTO670,680,690 
670 GOSUB1110s GOTO700 
680 GOSUB1020:GOTO700 
690 GOSUB1040 

700 S=S+1:IFS>HSTHENHS=S:GOTO330:ELSE330 

710 IFP=8THENBASE=BASE-64:GOTO760 

720 IFP=16THENBASE=BASE+64:GOTO760 

730 IFP=32THENBASE=BASE-2:GOTO760 

740 lFP=64THENBASE=BASE+2:GOTO760 

750 GOTO780:'MOVING ALIEN 

760 IFBASE>888ORBASE<0THENBASE=LBASE:GOTO780S 'MOVING ALIEN 
770 PRINT@LBASE,FC*J:PRINT0BASE,FA*;:LBASE=BASE 
780 ' MOVING ALIEN 

790 Z=RND(4)s ON Z GOTO 800,810,820,830 

800 A=A+64: GOTO840 

810 A=A-64:GOTO840 

820 A=A+2:GOTO840 

830 A=A-2 

840 IFA>888ORA<0THENA=B:GOTO790 

850 PRINT@B,FC$;:PRINT®A,At;:B=A:TIME=TIME-.4:IFTIME<=0THEN880 

860 SET(54,0):SET(126,3):SET(10,5):SET<94,8)sSET(96,11>:SET(76,25)sSET(34,28)sSE 
T(103,35):SET(2,28):SET(61,39) 

870 PRINT@960,"Score " 5 S;STRING*(14,32);"Hi score ";HS;STRING*(14,32); ”Time Left" 

;INT(TIME)5:IFINT(TIME)<>OTTHENDV=USR(6404):OT=INT(TIME):GOTO580ELSEGOTO580 
880 GOSUB1120:REM END 

890 CLS: PRINT023,"G a m e 0 v e r“:PRINT@87,"================":PRINTs PRINTTAB(2 

4);“Your Score =" 5 S:PRINTTAB(24);"Hi-Score =";HS;:PRINT:PRINT 

900 IFS<5THENPRINT"The aliens have totally taken over the planet and you are a 
discrace to the armed forces of the Earth!":GOSUB1100:GOTO950 
910 I FS< 7THENF'R I NT "You managed to save one part of the Ear th. . . Si ber i a ! " : GOSUB 1 1 
00:GOTO950 

920 IFS<10THENPRINT"Not bad! You managed to save the entire southern hemisphere 
fromthe aliens!":GOSUB1080:GOTO950 

930 IFS<15THENPRINT"Very Good! You managed to repel the aliens from all of the 

planet except for a large island in the southern hemisphere called Austr 

al ia!":GOSUB1030:GOTO950 

940 IFS>=15THENPRINT"FANTASTIC! You have destroyed all the aliens and the human 
race has a home once more!!!!":F0RZZ=1T02:GOSUB1110:NEXTZZ 

950 PRINT:PRINT:PRINT"SIR! Long range sensors report a wall of enemy craft head 
ing this way. Do you wish to take comman of this mission?";CHRt(95); 

960 A*=INKEYt:IFAt ="Y"THEN320ELSEIFA*= H y"THEN320ELSEIFA*= M N"THEN970ELSEIFA*= M n"T 

HEN970ELSE960 

970 CLS:POKE16396,201:END 

980 REM ******* SOUND ROUTINES 

990 FORC=16446T016474:READD:POKEC,D:NEXTC: POKE 16526,62:POKE 16527,64:DATA205,127, 
10,62,1,14,0,237,91,61,64,69,47,230,3,179,211,255,13,40,4,16,246,24,242,37,32,24 
1,201 

1000 RETURN 

1010 FORC=1T05:DV=USR(333):DV=USR(3000):DV=USR(333):NE X T:RETURN 
1020 FORC=1T05:DV=USR(2575):DV=USR(2560):FORD=1 TO10:NEXT:NEXT:RETURN 
1030 FORZZ=1T05:F0RC=5T01STEP-1:DV=USR(3333/C):NEXTC,ZZ:RETURN 

1040 FORC=200TO2000STEP100:DV=USR(C):NEXT:FORC=1T03+RND(9):DV=USR(2580-C):FORSR= 

1T03:DV=USR(260):NEXT:NEXT:RETURN 

1050 FORC=1T03:GOSUB1070:NEXT:FORC=1T03:DV=USR(12819):GOSUB1060:NEXT:FORC=1T03:G 

OSUB1070:NEXT:F0RD=1T0100:NEXT:RETURN 

1060 F0RD=1T025:NEXT:RETURN 

1070 DV=USR(1299):GOSUB1060:RETURN 

1080 DV=USR(7709):DV=USR(7707):DV=USR(7713):DV=USR(7723):DV=USR(10279):RETURN 
1090 FORC=600TO520STEP-1:DV=USR(C):NEXT:FORC=520TO600:DV=USR(C):NEXT:RETURN 
1100 FORC=1T05:DV=USR(13055):FORD=1TO50:NEXT:NEXT:RETURN 

1 110 FORC=390TO260STEP-10:DV=USR(C):NEXT:FORC=260TO360:DV=USR(C):NEXT:RETURN 

1120 FORC=1TQ5:DV=USR(25675+C*30):GOSUB1060:NEXT:C=USR(25855):RETURN 

1130 END H 




















TEXT EDITOR 

(Fur Sham PC-1500, Tandy PC-2) 


All colours may be selected and 
provision for text input which 
exceeds the maximum line 
length has been made in the 
following manner: 

Text is input at line 130 of the 
program and lines 150-190 test 
the length of variable A$(0) in 
relation to the size of lettering in 
use. They transfer control to 
line 300 if the text exceeds the 
maximum characters allowable 
for the selected size. 

The program then requests a 
change of letter size, or amend¬ 
ment of text. It is then displayed 
on the screen, with the excess 
characters in brackets. 

Lines 11 to 16 may be de¬ 
leted when the user is familiar 
with the program use. The ro¬ 
tate command enables printing 
downwards and that section of 
the program may be removed if 
not required. 

The program is extremely 
simple to use, and owners will 
need only spend a minimum of 
time to become familiar with it. 

Robert Christian 
Harbord NSW 


5: "TE" 

6 :LOCK 
9:CLEAR 

10:PAUSE " ** T 

e*t Editor **" 
:PAUSE "Copyr. 
R. Chr i st i an 
1983" 

llsPRINT " (T) = Te 
xt " 

12:PRINT "(C) = Co 
I our " 

13:PRINT "(S;= Si 
ze " 

14: PRINT "<R;= Ro 
t at e (dire ctio 
rO" 

15:PRINT "(L;= Li 
ne Feed" 

16:PR1NT "(*)= Cu 
rrent Status" 

20:DIN AS(0)*36 

30:AS=INKEYS 

40:WAIT 0:PRINT " 
(T)/(C)/(S)/(R 
)/<L)/(*)" 

50:IF (AS="L")+(A 
S^"T")+(AS="C" 
)4(A$="S")+(A$ 

< >1 THEN 30 

60:IF AS="T"THEN 
GOTO "T" 

20:IF AS="S"THEN 
GOTO "S" 

80:IF AS="C"THEN 
GOTO "C" 

90:IF AS="R"THEN 
GOTO "R" 

91:IF AS-"L"THEN 
"L" 

92:IF A$="^"THEN 
400 

95:IF AS=""THEN 3 
0 

100:"R":GRAPH : 

INPUT "Rotate? 

"JR:IF R>4 
THEN 100 

101:ROTATE R:G0T0 
30 

1 10:"S":TEXT : 

INPUT "Size? " 
;S:IF S<10R S> 
9THEN 110 

lll:CSIZE S:GOTO 3 
0 

120 :"C":TEXT : 

INPUT "Colour? 

" jC: IF 04 
THEN 120 

121:COLOR C:GOTO 3 
0 

130:"T":GRAPH : 
COLOR C:CSJ ZE 
S: ROTATE R 


140:A1-35:A2=l8:A3 
=12:A4=9:A5=7: 
A6=6:A7=5:A8=4 

145:INPUT "Text? " 

; AS(0) 

150:IF S=1AND LEN 
AS (0)>A1THEN 3 
00 

155:IF S=2AND LEN 
AS(0)>A2THEN 3 
00 

160:IF S=3AND LEN 
AS(0)>A3THEN 3 
00 

170:IF S=4AND LEN 
AS(0)>A4THEN 3 
00 

175:IF S=5AND LEN 
AS(0;>A5THEN 3 
00 

180:IF S=6AND LEN 
AS(0)>A6THEN 3 
00 

185:IF S=7AND LEN 
AS(0>>A7THEN 3 
00 

190:IF S>=8AND LEN 
AS(0)>A8THEN 3 
00 

191:IF S<1 GOTO 425 

200:INPUT "Number 
of doubles? ", 
D 

210:FOR 1=0TO D-l: 
GLCURSOR (.1,1) 
:LPR1NT ASC0): 
NEXT 1 

250:"L":TEXT : 

CS1ZE S:INPUT 
"Line Feed? "J 
L 

251:IF S<1 THEN 425 

252:LF L:GOTO 30 

300:PAUSE "Delete 
Chr(s) in Brkt 
s . " 

301:PAUSE "or chan 
ge size" 

302:WAIT :IF S=1 
PRINT "C"j 
RIGHTS (AS(0;, 
LRN AS<0)-Al)j 
" ) ":GOTO 30 

305:IF S=2PRINT 

L^FTS (ASC0),A 
2;j"<";RIGHTS 
CAS<0;,LEN AS( 
0;-A2)J">": 
GOTO 30 


310:IF S=3PR1NT 

le;fts ca$(0),a 

3)J"<"J RIGHTS 
( AS (0),LEN AS( 
0)-A3)J 
GOTO 30 

315:IF S=4PRINT 

LEFTS (AS(0),A 
4 ;;"("j RIGHTS 
(ASC0), LEN AS( 
0)-A4)J 
GOTO 30 

320:IF S=5PRINT 

LEFTS (AS(0;,A 

5) J " ("j RIGHTS 
CASC0),LEN AS( 
0)-A5)j 

GOTO 30 

325:IF S=6PRINT 

LEFTS CAS(0),A 

6) ;"("jRIGHTS 

( AS (0), LEN AS( 

0J-A6)j 
GOTO 30 

330:IF S=7PRINT 

LEFTS (AS ( 0 ), A 

7 ) ;" ( " J RIGHTS 
(ASC0),LEN AS( 
0;-A7)J 

GOTO 30 

335:IF S>=8PRINT 
LEFTS (AS(0), A 

8) ;"("JRIGHTS 
(AS(0), LEN AS( 
0;-A8)J")": 
GOTO 30 

400:IF C=0THEN LET 
BS="BLK" 

402:IF C=1THEN LET 
BS-"BLU" 

403:IF C=2THEN LET 
BS="GRN" 

404:IF C=3THEN LET 
BS="RED" 

405:WAIT 

410:PRINT "C="J BS; 
"/S=";S; ‘VR=" j 
Rj"/LF =";l 
420:GOTO 30 
425:PAUSE "No Size 
Signal Giuen" 
:GOTO "S" 


Bytes used: 1709 
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PIUME NUMBERS 

(For Stem PC-1500) 


After trying the Benchmark 
Prime Number test and record¬ 
ing an earthshattering 4520 sec 
on a Sharp 1500 I feel that I 
cannot seriously take up the 
speed challenge a Your Com¬ 
pute/* correspondent put out in a 
recent issue. However I am 
able to comment on improve¬ 
ments that enabled me to re¬ 
duce the time taken to 84 sec. 

My first thoughts were to im¬ 
prove the program along the fol¬ 
lowing lines:- That trail di¬ 


visors need only be primes 
greater than the square root of 
the number being tested. 

That even numbers can be 
omitted from the routine al¬ 
together. 

This reduced the time to a 
more respectable 432 sec. 

At this point I remembered a 
procedure usually taught to 
year 7 pupils called the Sieve of 
Eratosthenes (also a major ben¬ 
chmark for computers,Ed.). The 
enclosed listing is the result. If 


a similar improvement is possi¬ 
ble for other machines then I 
would expect to see a time of 
1 sec. 

The program sets up a matrix 
of 1000 elements, then sets up 
a table of primes greater than 
32. Odd composite numbers 
are then eliminated by repeated 
addition. Printing is carried out 
in a loop. After all, the challenge 
did not say that you had to be 
able to read them! 

Ian McIntyre 
Mooroolbark VIC 


Ss'^'CLEAR- .'WAIT 
0.-DIM D*(3, 249 
)*1,D<255) 
10:T=TIME 
35:FOR N=3T0 31 
STEP 2 

40:IF /N<2THEN 60 
45:FOR K=2TO JN 
50:IF N/K-INT <N/ 
IOTHEN 65 
55:NEXT K 
60:D(A)=N,A=A+1 
65:NEXT N 


70:FOR I=0TO A-l 
75:FOR J=D<I)*DCI 
)TO 1000STEP D 
< I )*2 

80:X=INT <(J-l>/2 
50), Y=J-250*X- 
1 

85:D*<X, Y)="*" 

90:NEXT J 
95:NEXT I 

100:PRINT ”2":0(0) 
=2, L=1 

105:FOR I=0TO 3 


110:FOR J=0TO 249 
STEP 2 

115:IF D*<I,J)="*" 
THEN 125 

120:D(L)=250*I+J+1 
,L=L + 1:PRINT D 
<L-1) 

125:NEXT J 

130:NEXT I 

135:S=TIME 

140:WAIT :PRINT L, 
INT ((DEG S- 
DEG T)*3600) 

■145: END 


MACHHE CODE MONTOR 

(Fir anrp PC-1500) 


Minimum System: PC-1500 with 
8K RAM and cassette interface/ 
printer. 

Recommended Reference: 
Sharp PC-1500 Pocket 
Computer Technical Reference 
Manual. 

Pocket Monitor is a basic 


machine code monitor for the 
Sharp PC-1500 computer. It 
includes facilities to examine 
and/or change memory 
contents, printout the contents 
of specific areas of memory, run 
machine code programs and 
set or examine some of the 


CPU registers before, or after, 
running a machine code 
program. 

The program is controlled by 
selecting the required function 
from a six item menu using the 
function keys. 

S. Corrigan 
Lawson NSW 


10 "M"PAUSE "MONITOR.1 9/10/03" 

20 REM INITIALISATION 
30 GOSUB "IN" 

40 REM COMMAND 

50 "CM"BEEP 2=WAIT 0=PRINT " ME PR 
RE GO MO HELP" 

60 CM-ASC INKEY* -16 : IF CM<10R CM>»7T 
HEN 60 

70 WAIT 

80 ON CMGOSUB "ME","PR","RE","GO", "MO 
","HE" 

90 GOTO "CM" 

100 "ME"REM MEMORY 

110 1NPUT "ADDRESS ="; AD 

120 IF I*«"0"LET DA-PEEK AD:GOTO 125 

122 DA-PEEK# AD 

125 IF M*»"D"WAIT 0=PRINT "ME";I*;AD;" 
: ";DA;" <H for help>"=GOTO 160 
130 J=DA : GOSUB "HEX2" : DA*-F* 

140 J=AD=GOSUB "HEX4"* AD*-F* 

150 WAIT 0 = PRINT "ME"; I*;" fc"; AD*; " > 8." 
; DA*; " <H for helP >" 

160 ST-ASC INKEY* 

170 IF ST-10OR ST-13THEN "NX" 

180 IF ST=11THEN "LS" 


190 IF ST=67THEN "WR" 

195 IF ST-72THEN "MH" 

200 IF ST-32THEN RETURN 
210 GOTO 160 

220 "NX"AD«AD+1 : GOTO 120 
230 "LS"AD-AD-1'GOTO 120 
240 "UR"INPUT "DATA =";DR 
250 IF I*-"0"POKE AD,DA=GOTO "NX" 

260 POKE# AD,DA=GOTO "NX" 

265 "MH"WAIT : GOSUB "HE"=GOTO "ME" 

270 "PR"REM PRINT 
280 INPUT "FR0M:"jSA 
290 INPUT "T0:"jEA 

292 LPRINT "# DATA FROM ME";I*;" *" 

293 LPRINT "-" 

295 IF M*»"H"THEN 330 

298 AD-SR 

300 FOR Z-0TO 3=IF I*-"0"LET D<Z )-PEEK 
AD:GOTO 310 
305 D< Z >-PEEK# AD 
310 AD-AD+1= NEXT Z 
315 USING :LPRINT SA;"=-" 

320 USING "####":LPRINT " ";D<0);D<1); 
D< 2 ); D< 3 ) 

322 SA-SA+4 






MACHINE CODE MONITOR 


325 IF SA>*EATHEN USING =RETURN 
327 GOTO 300 

330 J=SA'GOSUB "HEX4"'SA*«F* 

335 FOR Z=0TO 3 

340 IF I*="0"LET D< Z )-PEEK SR ! GOTO 350 

345 D<Z>-PEEK# SR 

350 J-D<Z> =GOSUB "HEX2" : D*<Z)=F* 

360 SA-SA+1 
370 NEXT *Z 

375 LPRINT "8." ; SA*j " = 

380 LPRINT " &";D*<0>; ",e.";D*< 1 >; ",8, 

";D*<2>i ", 8,"; D*( 3 ) 

390 IF Sfl>=ERTHEN RETURN 
395 GOTO 330 
400 "GO" 

410 POKE 8,57E1,8,A5,8,57,8. A5,8.0A, 8. A5,8.57 
,&A6,8,08 

420 POKE 8.57E9 , 8<A5 , 8,57 , 8, A7 , 8.BE , 8.57 , 8«FF 
, 8«AE, 8,57 

430 POKE 8«57F1,8«A7,8.FD,8.AA,8.AE,8.57,8.A8 
, 8,04,8, AE 

440 POKE 8.57F9,8.57,8.A5,8,84,8.AE, 8,37,8.A6 
, 8.9R 

450 INPUT "STRFT ADDRESS 1 ";SR 

460 SH-INT <SR/256)'SL-SR-INT <SH*256> 

470 POKE 8.57ED, SH, SL : REM SET SJP 
480 CALL 8.57E1 
490 RETURN 

500 "MO"REM SET DISPLAY 
510 WRIT 0 ! PRINT "DISPLAY <H)EX OR <D> 
EC?" 

520 M*-INKEY* 

530 IF M*-"H"PAUSE "HEX DISPLAY">GOTO 
560 

540 IF M*="D"PAUSE "DECIMAL DISPLAY" ! G 
OTO 560 

550 GOTO 510 

560 PRINT "ME area, <0> or <1>7" 


570 I*-INKEY* 

580 IF I*»"l"OR I*="0"PAUSE "MEMORY AR 
E A-ME"; I * ! RETURN 
590 GOTO 570 
680 "RE"REM REGISTERS 
610 WAIT 0'PRINT "<S)ET or <R>EAD REGI 
STERS?" 

620 R*=INKEY* 

.630 IF R*«"S"WAIT * GOTO 740 
640 IF R*<>"R"THEN 620 
645 WAIT 

650 XL-PEEK 8.57A5»XH-PEEK 8.57A6 
660 AC-PEEK 8.57A7«ST-PEEK 8.57A8 
670 IF M*-"H"THEN 700 
680 PRINT "XH-";XHj" XL-";XL 
690 PRINT "ACC.«";AC J" STATUS-">ST = RET 
URN 

700 J-XH ! GOSUB "HEX2" 1 XH*-F*'J-XL'GOSU 
B "HEX2" ! XL**F* 

710 J-AC ! GOSUB "HEX2" 1 AC*-F* 1 J-ST 1 GOSU 
8 "HEX2"'ST*-F* 

720 PRINT "XH-8,"; XH*; " XL=8,";XL* 

730 PRINT "ACC. -8."; AC*; " STATUS-8," ; ST* 

>RETURN 

740 INPUT "XH-";XH : INPUT "XL»";XL 
750 INPUT "ACC.*"; AC 
760 POKE 8,57A5, XL, XH, AC 
770 RETURN 

800 "HE"PRINT "SteP heIP menu with ENT 
ER" 

810 BEEP 1' PRINT " ME <— Memory. 

830 PRINT "...»teP addr< down arrow" 
840 PRINT "...back uP addr> uP arrow" 
850 PRINT "...to change, Press C" 

860 PRINT "....Press SPACE to exit." 
865 IF ST-72THEN RETURN 
870 BEEP 1 ‘PRINT " PR <~ Print m 

emory." 


880 BEEP 1 ! PRINT " RE <--re9i 

sters" 

890 PRINT "..set or read ACC. & X...." 


895 PRINT "..before or after GO." 

900 BEEP 1-PRINT "run Pro9.-> GO" 

910 BEEP 1'PRINT "mode- dec/hex ->MO 

920 PRINT "...also sets ME0 or ME1." 

930 RETURN 
1000 "HEX4"F*-"0000" 

1010 IF J>3Z767LET J-J-65536 

1020 CALL 8.57D8, J 

1030 CALL 8.57B4 

1948 CALL 8.57R9 

1050 RETURN 

1060 "HEX2"F*-"00" 

1070 POKE 8.57A3, J 
1080 CALL 8.37B4 
1090 RETURN 

1100 "IN"REM INITIALISE 
1110 REM MACHINE CODE, CONVERT HEX TO 
STRING 

1120 POKE 8.57A9,8, A3,8,57,8.A4,8.AE, 8.57,8.A3 
, 8.4A, 8,62 

1130 POKE 8.57B 1,8,BA,8,57,8,B6,8,4A, 8,60,8,46 
,8.76 

1140 POKE 8.57B8,8,A5,8.57,8,A3,8.D5,8.D5,8,D5 
, 1D5,8.BE 

1150 POKE 8.57C0,8,57,8,CE,8,0E,8.44,8,A5,8,57 
,8,A3,8.B9 

1160 POKE 8,5708,8.0F, 8.BE, 8,57,8.CE, 8.0E, 8«9A 
,8,07,8.0A 

1170 POKE 8.57D0,8,83,8,03,8.B3,8,30,8,9A,8,B3 
,8,36,8,9 A 

1180 POKE 8.57D8,8,84,8.AE, 8.57,8,A3, 8,04, 8,AE 
, 8,57,8,A4, 8.9A 

1190 CLEAR 'DIM D<4)'DIM D*<4) 

1200 M*-"H"'I*-"0" 

1210 RETURN 


PRINTOUT 1. 

PRINTOUT 2 



MACHINE CODE SUB-ROUTINES 






** CONVERT HEX 

NUMBER TO STRING IN 

F* 


* DATA FROM ME0 * 

% DATA FROM ME0 * 

8.57A9 8.A557A4 

C2)LDA < 8.57A4 > 








5> 1 fl ^ 8*0 ? 



8.57A9' - 

22441=- 



8.57AF (L4A62 

LDI XL 8,62 


ADDRESS F* 

8.A5,8.57,8, A4,8. AE 

165 87 

164 

174 

8.57B1 8.BA57B6 

JMP BT 



8.57AD • - 

22445'- 



8.57B4 8.4A60 

C1?LDI XL 8,68 


ADDRESS F8, 

8,57,8,A3,8,4A, 8,62 

87 163 

74 

98 

8.57B6 8,4876 

BT >LDI XH 8,76 


M H ii 

8.57B1 1 - 

22449•- 



8.57B8 8.A557A3 

LDA C8.57A3) 


BYTE TO BE ... 

8.BA, 8,57,8.B6,8.4A 

186 87 

182 

74 

8.57BB 8.D5 

SHR 


CONVERTED, 

8.57B5' - 

22453'- 



8.57BC 8.D5 

SHR 


LEFT NIBBLE 

160, 8,48,8.76, 8.A5 

96 72 

118 

165 

8.57BD 8.D5 

SHR 



157B9•- 

22457•- 



8.57BE 8.D5 

SHR 



157,1A3,1D5,1D5 

87 163 

213 

213 

8.57BF 8.BE57CE 

SJP AS 


CONV. TO ASCII 

157BD'- 

22461=- 



8.57C2 8.0E 

STA <X> 


STORE IN F* 

1D5,1D5,1BE,157 

213 213 

190 

87 

8.57C3 8.44 

INC X 



157C1- - 

22465'- 



8.57C4 1A557A3 

LDA < 8.57A3 > 


BYTE TO BE.... 

ICE,10E,144,1A5 

206 14 

68 

165 

8.57C7 8.B90F 

ANI 8.0F 


CONVERTED, RIGHT 

157C5'- 

22469'- 



8.57C9 8.BE57CE 

SJP AS 



157,1A3,1B9,10F 

87 163 

185 

15 

8.57CC 8.0E 

STA <X> 


STORE IN F* 

157C9■- 

22473•- 



8.57CD 8.9A 

RTN 



1BE,157,ICE,10E 

190 87 

206 

14 

8.57CE 8.B70A 

AS )CPI 8.0A 


>8,0A? 

157CD'- 

22477'- 



8.57D0 8,8303 

BCS LT 


YES 

19A,1B7,10A,183 

154 183 

10 

131 

8.57D2 8.B330 

ADI A 8,30 


0 TO 9 

157D1'- 

22481■- 



8.57D4 8.9A 

RTN 



103,1B3,130,19A 

3 179 

48 

154 

8.57D5 8.B336 

LT )ADI A 8.36 


A TO F 

157D5 * - 

22485'- 



8.57D7 8,9A 

RTN 



1B3,136,19A,184 

179 54 

154 

132 

ROUTINE TO 

SAVE VARIABLE IN MEMORY 


157D9'- 

22489'- 



8.57D8 8,84 

LDA XH 



1AE,157,1A3,104 

174 87 

163 

4 

8.57D9 8.AE57A3 

STA C8.57A3) 



157DD'- 

22493'- 



8.57DC 8,04 

LDA XL 



1AE,157,1A4,19A 

174 87 

164 

154 

8.57DD 8.AE57A4 

STA < 8.37A4 > 



157E1'- 

22497 * - 



8.57E0 8.9A 

RTN 



1A5,157,1A5,10A 

165 87 

165 

10 

ROUTINE TO 

FETCH AND SAVE ACC. 

X REG. AND 

157E5'- 

22501'- 



STATUS 

FOR GO FUNCTION 



1A5,157,1A6,108 

165 87 

166 

8 

8.57E1 8.A557A5 

LDA < 8.57A5 > 



157E9•- 

22505'- 



8.57E4 8.0A 

STA XL 



1A5,157,1A7,1BE 

165 87 

167 

190 

8.57E5 8.A557A6 

LDA < 8.57A6 ) 



157ED'- 

22509'- 



8.57E8 8,08 

STA XH 



157,IFF,1AE,157 

87 255 

174 

87 

8.57E9 8.A557A7 

LDA <8,57A7) 



157F1 1 - 

22513'- 



8.57EC 8.BE57FF 

SJP EN 


CALL USER. 

1A7,1FD,1AA,1AE 

167 253 

170 

174 


** WARNING ** 



157F5'- 

22517'- 



SUBROUTINE 

JUMP ADDRESS SET BY 

BASIC AT 

LINE 470 

157,1A8,104,1AE 

87 168 

4 

174 

8.57EF 8.AE57A7 

STA < 8.57A7 > 



157F9'- 

22521’- 



13fF2 8.FDAA 

TTA 


ACC.-STATUS 

157,1A5,184,1AE 

87 165 

132 

174 

187F4 8.AE57A8 

STA < 8.57A8 ) 



157FD = - 

22525'- 



8.57F7 8.04 

LDA XL 



157,1A6,19A,100 

87 166 

154 

0 

M7F8 8.AE57A5 

STA <8,57A5> 







I.57FB 8,84 

LDA XH 







8.57FC 8.AE57A6 

STA < 8.57A6 > 







657FF 8.9A 

RTN 
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FRUIT MACHINE 

(For Sharp MZ 700) | 


Here is a good program for 
beginners like me, because it 
incorporates sound and colour 
and is a lot of fun to play. 

Allan Moss 
Duffy ACT 


THIS IS A $.50 SLOT MACHINE. 

PAYOFF IS $3.00 FOR 3 CHERRIES, 3 LEMONS 
, OR 3 ORANGES. 

ALL OTHER COMBINATIONS LOSE. 

HOW MANY 50-CENT PIECES DO YOU WANT TO U 
SE IN PLAY. 

i 4 

TOU START WITH $ 2 

□0 YOU WISH TO PLAY CTYPE 1 FOR YES, -0 F 
OR NOD? 1 

LEMON LEMON LEMON 

GREAT YOU WON $3. 

TOU NOW HAUE $ 5 

DO YOU WISH TO PLAY (TYPE 1 FOR YES, 0 F 
OR NOD? 1 

CHERRY CHERRY CHERRY 

GREAT Y0(J WON $3. 

TOU NOW HAUE $ 8 

DO YOU WISH TO PLAY CTYPE 1 FOR YES, 0 F 
OR NOD? 1 

CHERRY ORANGE ORANGE 

TO BAD - - YOU LOST $.50. 


TOU NOW HAUE $ 7.5 

DO YOU WISH TO PLAY CTYPE 1 FOR YES, 0 F 
OR NOD? l 

ORANGE ORANGE CHERRY 

TO BAD - - YOU LOST $.50. 


TOU NOW HAUE $ ? 

DO YOU WISH TO PLAY (TYPE 1 FOR YES, 0 -F 
OR NOD? i 

lEMON ORANGE CHERRY 

TO BAD - - YOU LOST $.51* 


TOU NOW HAUE $ 6,5 

DO YOU WISH TO PLAY CTYPE 1 FOR YES, 0 F 
OR NOD? 1 

ORANGE LEMON LEMON 

TO BAD - - YOU LOST $.50. 


TOU NOW HAUE $ 6 

DO YOU WISH TO PLAY (TYPE 1 FOR YES, 0 F 
OR NOD? i 

CHERRY ORANGE LEMON 

TO BAD - - YOU LOST $.50. 


TOU NOW HAUE $ 5.5 

DO YOU WISH TO PLAT (TYPE 1 FOR YES, 0 F 

OR NOD? 0 

SOWY ABOUT THAT 

Ready 


6 PRINT ,"FRUIT MACHINE GAME FOR 
SHARP M2-700 COMPUTER" 

? PRINT 

8 PRINT 

9 PRINT C, 4D 

10 PRINT "THIS IS A $.50 SLOT MACHINE." 
20 PRINT "PAYOFF IS $3.00 FOR 3 CHERRIES 
, 3 LEMONS, OR 3 ORANGES." 

30 PRINT "ALL OTHER COMBINATIONS LOSE." 
40 PRINT "HOW MANY 50-CENT PIECES DO TOU 
WANT TO USE IN PLAY." 

50 INPUT M 
60 LET M=M*.5 

70 PRINT "YOU START WITH $";M 

80 LET X=RNDC-1D 

81 PRINT 

90 PRINT "DO YOU WISH TO PLAY CTYPE 1 FO 

R YES, 0 FOR NOD"5 

100 INPUT A 

110 IF A=0 THEN 410 

120 LET C=0 

130 LET L=0 

140 LET 01=0 

150 FOR 1=1 TO 3 

160 LET N=INTC3*RNDC1DD+1 

170 ON N GOTO 180,210,240 

180 PRINT r.7,0D " CHERRY 

190 LET C.=C+1 

200 GOTO 260 

210 PRINT C7, 21" LEMOH *j 
220 LET L=L +1 
230 GOTO 260 

240 PRINT [7, 3] " ORANGE "5 

250 LET 01=01+1 

260 NEXT I 

270 IF C=3 THEN 350 

280 IF L=3 THEN 350 

290 IF 01=3 THEN 350 

291 PRINT 

300 PRINT ,"TO BAD - - YOU LOST $.50."; 

301 MUSIC "#A1" 

310 LET M=M- .5 

311 PRINT 
320 PRINT 

330 IFM=0 THEN 400 

331 PRINT 
340 GOTO 380 

350 PRINT ,"GREAT YOU WON $3."; 

355 MM$= "C1+D1+E1+J r 1+G1+A1+B1" 

356 TEMPO 7 

357 MUSIC MM$,MM$,MM$ 

360 LET M=M+3 

370 PRINT 

380 PRINT "YOU NOW HAUE $"JM 

390 GOTO 90 

391 PRINT 

400 PRINT "YOU HAUE LOST ALL YOUR MONEY. 

401 PRINT 

410 PRINT "SORRY ABOUT THAT" 

411 MUSIC "-B4R+-5BR+-C8" 

420 END 


FIND THE PEA 

(Fop Sharp PC-1500) 


An age old carnival con game 
that has found its way onto a 
computer. Full instructions are 
in the program. Good luck! 

Alan Thomas 
Napier NZ 


DECIMAL TO HEX 

(Fop Sharp PC-1500) 

Simply put in a number when 
asked and the hexadecimal 
value will be calculated and dis¬ 
played. 


Alan Thomas 
Napier NZ 


10:"DH"CLEAR :H#= 
"0123456789ABC 
DEF" 

30:INPUT "Number= 
"» N:IF N>65535 
PRINT "ABOUE L 
iniT! ":GOTO 30 
35:IF N<0END 
40: FOR 1 = 1 TO 4 
50:&OSUB 100 
60:NEXT I 
70:N#="t"+N# 

80:PRINT N# 

90:N#="":GOTO 30 
100:A=INT <N^16):2 
=N-16*A.'N#= 
MID# <H#, <2+1> 

,1)+N#:N=A: 
RETV^N 


ESCAPE 

(Fop Sharp PC-1401) 


To play ESCAPE just type RUN 
and press ENTER. A prompt 
will ask you for the size of the 
Maze. The computer will then 
be busy while it generates the 
new Maze. The computer will 
beep twice when the maze is 
completed. 

During play the computer will 
display the available exits open 
to you, these will be any combi¬ 
nation of N(orth), E(ast), W(est), 
or S(outh) inside square brac¬ 
kets. Just press the key of the 
compass point of the direction 
you wish to move. 

The computer can generate a 
maze with one-way walls and 
rooms with no exits. 

'YOU ARE TRAPPED!' is dis¬ 
played when in a room of no 
exits, pressing ‘X’ will take you 
back to the start of the maze. 

'FREE AT LAST' and your 
score (maximum is 1000) will 
be displayed when you find 
your way out of the maze. 

David Green 
Shailer Park QLD 


10:CLEAR .'PAUSE "** ESCAPE! **":WAIT 25 
:X=0:I=0:S8=" # " 

20.'RANDOM .'INPUT "MAZE SIZE ";Z:Z=Z-1: 
DIM NS(Z,Z)*1,E8(Z,Z)*1,W8(Z,Z)*1, 
S8(Z,Z)*1:T=1001+Z 
30:D=RND (Z/2):C=RND 4 
40•*FOR L= 1 TO D:0N C GOTO 50,55,50,55 
50:NS(X,Y)=S8:S8(X,Y)=S8:GOTO 60 
53:E8(X,Y)=S8:W8(X,Y)=S8 
60:X=X+(C=2)-(C=4):Y=Y+(C=3)-(C=1) 

70:IF X 0 LET X=0:L=D 
80:IF X Z LET X=Z:L=D 
90:IF Y 0 LET Y=0:L=D 
100:IF Y=Z+1 THEN 120 
110:NEXT L:GOTO 30 

120:FOR L=0 TO ,Z:W8(0,L) = "":S8(L,0) = "": 

E8(Z,L)="":NEXT L:BEEP 2 
130:X=0:X=0 

140:DD8="EXITS "+CHR8 91:IF N8(X,Y)=S8 
LET DD8=DD8+"N" 

141:IF E8(X,Y)=S8 LET DD8=DD8+"E» 

142:IF W8(X,Y)=S8 LET DD8=DD8+"W" 

143:IF S8(X,Y)=S8 LET DD8=DD8+"S" 

144:DD 8 =DD 8 +CHR 8 93:IF LEN DD8=8 LET 
DD8="YOU ARE TRAPPED!" 

150:PRINT DDS:08=INKEY8 .'IF 08="" 

THEN 150 

155:IF 0S="X" THEN 130 
156 :T=T-1 

160:IF 08="N" OR 08="S" LET Y=Y+(08="N" 
AND N8(X,Y)=S8M08="S" AND S8(X,Y) 
=S8):GOTO 169 

165:X=X+(08="E" AND E8(X,Y)=S8)-(08="W" 
AND W8(X,Y)=S8) 

169:IF Y =Z THEN 140 
170.'WAIT .'PRINT "FREE AT LAST":PRINT 
"SCORE :";T:END 


t: REM FIND THE 
PEA! 

2:REM by 

ALLAN THOMAS 
3:REM 1.4.84! 

10:CLEAR :RANDOM 
:B#="00081C080 
0 " 

20;FOR 1 = 1 TO 3 
30:GOSUB 500 
60:PAUSE " " 

70:WAIT :CLS : 
PAUSE "FIND TH 
E PEA!" 

80:NEXT I 
90:INPUT "RULES=R 
/PLAY=P:? ";A# 
100:IF LEFT# <A#, 1 
>="E"END 

110:IF LEFT# (A#, 1 
)="R"GOTO 200 
120:GOTO 300 
200:BEEP 5:DIM Q#< 
0>*26:WAIT 
210:RESTORE :FOR I 
=0TO 12 

220:READ Q*< 0 >: 

PRINT Q#( 0 ) 

230:NEXT I 
240:GOTO 90 
300:CLS :GOSUB 500 
: BEEP J*3, RND 
3*10:CURSOR 20 
:PRINT "?" 

310:A#=INKEY# : IF 
A#=""GOTO 310 
320: KEY=ASC A#: IF 
«EY<170R KEY >1 
9G0T0 310 
330:N=N+1:P=RND 3: 
KE=KE-16 

340:CLS :GCURSOR 2 
4*<P-1)+12: 
GPRINT B# 

350:IF KE=PG0T0 40 
0 

360:PAUSE "YOU LOS 
E!":PZ=-20: 
GOSUB 550:GOTO 
425 

400:PZ=400-100*N: 
tff P2<91 .j:t pz= 

0 

410:PAUSE "YOU WIN 

#";PZ," !!": 

GOSUB 550:N=0: 
GOTO 300 

425:IF N<3G0T0 300 
430:N=0:INPUT "AGA 
IN? " ,* Q#: IF 
LEFT# <Q#, 1 ) = " 
Y"GOTO 300 
440:END 

500 .'WAIT 50: CLS 
510:FOR J=1TO 3 
520.'BEEP J: CURSOR 
4*J-2:PRINT 
CHR# 127; 

530:NEXT J:RETURN 
550:TP=TP+PZ:PAUSE 
"TOTAL WINNING 
S #",'TP: RETURN 
600:DATA "RULES:Pr 
ess Enter for 
more . "3 cups 

are on the ta 
ble. " 

610:DATA "The pea 
is under one c 
up. ", "Uh i ch cu 
p?", "You are a 
I I owed 3 guess 
es . 

630:DATA "The cups 
are shuffled" 

’ "after each g 
uess ", "Press k 
ey under cup c 
hosen" 

640:DATA "Prizes f 
or finding Pea 
: "F irst try: 

#300", "Second 

try: #200" 

650:DATA "Third tr 
y-' # 100 ", "Each 
wrong guess: 
-# 20 " 


1060 
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GOLF 8IMUUTI0N 


This draws a golf course in 
graphics mode with endless 
variations on bunkers, water 
hazards and roughs, and allows 
the player to actually ‘play’ the 
shots giving a choice of club, 
hitting strength and direction. 

Gary McCleary 
Emu Plains NSW 


40 REH GOLF SIMULATION 

50 REM BY GARY J MCCLEARY 

51 REM DEC. 1983 

100 CLS_;_. 

110 pr iNT633 ,'Welcome to glenlay golf co 
Tjrs§" 

111 PRINT 

112 PRINT"IN GOLF THE OBJECT OF THE GAME 


113 PRINT"IS TO HIT THE BALL FROM THE" 
11.4 PR I NT" TEE G®] TO THE HOLE IN THE" 

115 PRINT"FEWEST NUMBER OF SHOTS." 

120 PRINT 

125 PRINT"WILL THERE BE 1 OR 2 PLAYERS?" 
130 K4=INKEY$ 



133 I*=INKEY* :WW=RNDCDD3 :DD=DD+1 : IFDD> 10 

0THENDD=1:IFI♦=""THEN133 

135 IFIt="1"THENPL=1:LP=0:G0T0145 

137 IFI#="2"THENPL=2 :LP=0:G0T0145 

140 GOTO130 

145 CLS 

155 PRINT"YOUR GOLF BAG CONTAINS A:" 

158 PRINT ^ 

^ MAX.RANGE 251 METRES" 

?MAX.RANGE 221 METRES" 
?MAX.RANGE 164 METRES" 

)MAX.RANGE 127 METRES" 

) MAX RANGE 87 METRES" 

) MAX.RANGE 41 METRES" 

190 PRINT"AND IS ONLY USED ON THE GREEN" 

194 PRINT 

195 PRINT"TO ACHIEUE GREATER HEIGHT" 

200 PRINT"USE A HIGH NUMBERED IRON" 

205 PRINT 

210 PRINT' tgPACE) CONTINUES THE GAME" 

250 GOSUB20980 

300 HO=l:TT=0:T1=0:T2=0:GF=0 

350 PA=RNDC33+2 

351 PZ=RNDC23 

352 IFPA=3THENP=3sSX=63JGOTO400 
354 IFPA=4THENP=4.8 

366 IFPA=5THENP=6. 5 
368 IFPZ=1THENSX=8 
370 IFPZ=2THENSX=119 
400 REM 

420 ZB=RNDC33:2W=RNDC33 :2J=RNDC33 

430 J3=RND(93+2 

450 A=RNDC1073+7:BB=RNDC73+16 

453 G=RNDC53 +2:B=RNDC93 +2:W=RNDC103 +3 

455 IF2J=1THENJ3=0 

456 IF2B=1THENB=0 

457 IF2W=1THENW=0 

458 C=RNDC1033+9:D=13+RNDC63 

459 MD=INTCSQRCCA-SX3~2+CBB-633-23*P3 

460 HB=SQRC CA-C3 / '2+CBB-D3^23 


465 IFHB <=G+B+3THEN458 

466 E=13+RNDC1003:F=14+RNDC353 
468 BW=SQRCCC-E3~2+CD-F3~23 
470 WH=SQRCCA-E3~2+CBB-F3~23 
472 IFBW<=B+W+3THEN466 

474 IFWH<=W+G+3THEN466 

480 J1=RNDC1033+9sJ2=RNDC63+13 

485 HJ=SQRCCA-J13~2+CBB-J23~23 

490 IFHJ<=G+J3+3THEN458 

492 JW=SQRCCJ1-E3~2+CJ2-F3~23 

494 IFJW<=J3+W+3THEN466 

500 CLS 

506 X=SX:Y=63:R1=0:B1=0:U1=0 

507 SC=0 

509 CLS 

510 PRINT"THIS IS HOLE NUMBER" HO 

511 PRINT 

512 PRINT"PLAYER" LP+1 

513 PRINT 

514 PRINT"PAR"PA; MD "METRES" 


515 SC=0:X=SX:Y=63:R1=0:B1=0:U1=0 
517 GOSUB20980 

522 GOSUB20000 

523 GOSUB20980 

524 CLS 

525 PR INT"WHICH CLUB DO YOU WISH TO USE" 
527 INPUTCL 

530 IFCL=1THENAU=29+RNDC113:GOTO600 
540 IFCL=2THENAU=19+RNDC113:GOTO600 
550 IFCL=5THENAU=69+RNDC63:GOTO600 
560 IFCL=7THENAU=74+RNDC63:GOTO600 
570 IFCL=9THENAU=79+RNDC63:GOTO600 
580 CLS:PRINT"YOU DO NOT HAUE ONE OF THO 
SE" :G0T0525 
600 CLS 

602 PRINT"IN WHICH DIRECTION DO YOU WISH 

610 PRINT"TO HIT? C0TO360 DEGREES3" 

620 PRINT"MEASURED ANTICLOCKWISE FROM" 
630 PRINT"THE RIGHT" 

635 GOSUB60300 
640 INPUTA2 
645 CLS 

650 PRINT"HOW HARD DO YOU WISH TO HIT" 
660 INPUT"0TO50"5U 
665 CLS 

668 PS=3.141592654/180 
670 IFU<0THENU=0 
675 IFU>50THENU=50 
677 SC=SC+1 

680 RA=U*U*SIN C 2*AU*PS 3/9.81 
682 RS=RA/P 

685 HT=CCSINCAU*PS3*U3^23/C19.623 

686 IFR1=1THEN12000 

687 IFB1=1THEN13000 
690 X=X+RS*COSCA2*PS3 
700 Y=Y-RS*SINCA2*PS3 
710 H=INTCX3:K=INTCY3 
715 H1=0 

720 IFH<0THENH=0:H1=1 
725 IFH>=127THENH=126:H1=1 
730 IFK<0THENK=0:H1=1 

735 IFK>63THENK=63:H1=0 

736 X=H:Y=K 

740 IFH1=1THEN9000 

742 DI=SQRCCA-H3~2+CBB-K3~23 

745 REM 

746 IFDI<=GANDGF=1THEN790 

747 GOSUB20000 

754 C0L0R2 

755 K$=INKEY$ 

760 I*=INKEY« 

765 SETCH,K3:SETCH+1,K3 
770 RESETCH,K3 JRESETCH+1,K3 
775 IFI$=""THEN760 
780 IFI$<>" "THEN760 
790 DI=SQRt CA-H3^2+CBB-K3 / '23 
792 DB=SQRC CC-H3 / '2 + CD-K3 /s 2 3 
794 DW=SQRC CE-H3^2+CF-K3 / '23 
796 DJ=SQRC C J 1-H3 y '2+C J2-K3^23 
800 DM=DI*P 

810 IFDI<=GTHENGF=1:GOTO8000 

812 IFDB <=BANDB <>0THEN7000 

813 IFDJ <=J3ANDJ3O0THEN7000 

814 IFDW <=WANDW <> 0THEN10000 

816 CLS 

817 PRINT"THAT SHOT WENT "INTCRA3"METRES 

819 PRINT 

820 PRINT"DISTANCE FROM THE HOLE" 

822 PR INT INT COM 3"METRES" 

825 PRINT"NUMBER OF STROKES="SC 

827 IFPA=4ORPA=5THEN1000 

830 IFH<40i=)NDK>31 THEN 11000 

835 IFH>86ANDK>31THEN11000 

840 IFK<=8THEN11000 

845 GOTO2000 

1000 IFP2=2THEN1500 

1100 IFH>16ANDK>31THEN11000 

1110 IFK<=8THEN11000 

1120 GOTO2000 

1500 IFH <111ANDK>31THEN11000 
1510 IFK<=8THEN11000 
1520 GOTO2000 
2000 G0T0525 
7000 Bl=l 

7005 BH=124.5 _ 

7010 PRINT"YOU ARE IN THE( jlJNKE^ " 

?020 PRINT"YOU ARE ADUISED TO USE THE WE 
DGE" 

7030 G0T0525 
8000 GF=1:GOTO60060 
8004 CLS 

8008 PRINT"YOU ARE ON THE ( j3REE? j) AND WILL 

8010 PRINT"BE USING THE PUTTER" 

8020 PRINT"WHICH DIRECTION C0TO3603" 

8025 GOSUB60300 
8030 INPUTA2 
8035 CLS 







B040 PRINT"HOU HARD DO YOU WANT TO HIT" 

B050 INPUT"C0TO253";U 

B060 IFU<0THENU=0 

B065 IFU>25THENU=25 

B070 AU=70 

3075 CLS 

B200 G0T0677 

3000 S0UND4,2:SC=SC+1:G0T0745 

10000 U1=0 

10005 SC=SC+1 

10010 H=H+2*U:«=K+2*U 

10020 GOTO60000 

11000 Rl=l 

11005 RH=111+RNDC15] 

11010 PRINT 

11011 PRINT"YOU ARE IN THE /ROUG^ " 

11012 I FRH> 123THENB*= '^TALL TRE^" : GOTO 11 

318 > 

11014 IFRH>118THENB$='|flEDIUn TREES)" :GOTO 

11018 _ 

11016 IFRH>=112THENB*="£oU SCRUB^:GOTO11 
318 ^ 

11018 PRINT"YOUR NEXT SHOT OUST CLEAR SO 
IE" 

11019 PRINTB* 

11020 PRINT 
11030 G0T0525 

12000 IFHT<RHTHENRA=RNDC6):GOTO12100 

12010 RA=RA/2 

12100 R1=0 :G0T0682 

13000 IFHT<BHTHENRA=0:GOTO13100 

.3010 RA=RA/2 

.3100 B1=0 :G0T0682 

.5000 SOUND20,1SS0UND15,1 

.5002 IFLP=0THENT1=T1+SC:TT=T1:P1=P1+SC- 

>A:Q=P1 

5003 IFLP=1THENT2=T2+SC:TT=T2:P2=P2+SC- 
>A:Q=P2 

5005 A$=" FOR THIS HOLE" 

5008 CLS _ 

5010 PRINT639, ' CONGRATULATIONS) ' 

5015 PRINT073,"PLAYER"LP+1 
5020 PRINT 

5030 PRINT"YOU ARE IN THE HOLE" 

5040 PRINT"FOR "SC" SHOTS!!_ 

5060 IFSC=PA-2THENPRINT' t|AGL^'' ;Ai 
5062 IFSC^PA-lTHENPRIN T'ffirROIg ' ;A$ 

5064 IFSC=PATHENPRINT , lfrAFp" ;A$ 

5066 IFSC=PA+lTHENPRINT l f BOGEY^ 1 ;AS _ 

5068 IFSC=PA+2THENPRINT , j5uBLrtS^'JA 

5069 IFSC=1THENPRI NT "(fioLE I N" ONE sis)" : GO 

015072 -- 

5070 PRINT 

5072 PRINT"YOUR TOTAL SO FAR IS"TT 
5074 IFQ=0THENPRINT"YOU ARE ON PAR FOR 
HE COURSE" 

5076 IFQ>0THENPRINT"YOU ARE "Q" OUER PA 
' FOR THE COURSE 

5078 IFQ<0THENQ=ABSCQ3:PRINT"YOUR TOTAL 
IS"Q"UNDER PAR" 

5080 PRINT:PRINT _ 

6008 PRINT" PRESS THE (SPAC E^" 

6010 K$=INKEY$ 

6020 I$=INKEY*:KD=RNDCDD3 
6030 DD=DD+1:IFDD>100THENDD=1 
6040 IF I$=""THEN16020 
6050 IFI$<>" "THEN16020 
6060 CLS 

6100 IFPL=1THENH0=H0+1:GOTO350 

6200 IFPL=2ANDLP=1THENLP=0:HO=HO+1:GOTO 

50 

6210 IFPL=2ANDLP=0THEN:LP=1 :GOTO510 

0000 C0L0R4 

0001 riODECl 1 :GF=0 

0002 IFPA=4ORPA=5THEN20112 

0005 FORI=0TO127STEP2 

0010 SETC1,83:SETCRNDC126 3»RNDC733 

0020 NEXT 

0030 FORI=0TO40STEP2 

0040 SETC11313:SETCRNDC403 , 31+RNDC313 3 
0050 NEXT 


3 F0RI=86T0127STEP2 
3 SETCI,313:SETCRNDC403+86,31+RNDC31 

3 NEXT 

3 F0RI=31T063STEP2 
3 SETC40,13 5SETC86,13 
3 NEXT 
1 GOTO20200 

> IFP2=2THEN20140 

5 FORI=0TO127STEP2 
3 SETC1,83:SETCRNDC1263,RNDC73 3 
3 NEXT 

> F0RI=16T0127STEP2 

\ SETCI,313:SETCRNDC1103+16,31+RNDC3 

i NEXT 

! F0RI=31T063STEP2 
I SETC16,13 
! NEXT 
■ GOTO20200 
I FORI=0TO127STEP2 
’ SETC1,83:SETCRNDC126 3,RNDC73 3 
NEXT 

i FORI=0TO111STEP2 

' SETC1,313:SETCRNDC1103,RNDC313+313 
NEXT 

i FOR I=31T063STEP2 
SETC111,13 
NEXT 

GOTO20200 
FORI=A-GTOA+G 
FORJ=BB-GTOBB+G 
SETCI> J D 
NEXT 5NEXT 
C.0L0R2 

FORI=BB-11TOBB PRESETCA,13:NEXT 
FORI=BB-11TOBB:SETCA,13 :NEXT 
FORJ=BB-11TOBB-8 
F0RI=AT0A+4 


SETCI,J3:NEXT :NEXT 
IF2B=1THEN20265 
C0L0R2 

FORI=C-BT0C+BSTEP2 

F0RJ=D-BT0D+BSTEP2 

SETCI,J3 

NEXT JNEXT 

IF2J=1THEN20273 

C0L0R2 

FORI=J1-J3T0J1+J3STEP2 

F0RJ=J2-J3T0J2+J3STEP2 

SETCI,J3 

NEXT 5NEXT 

IF2W=1THEN20349 

C0L0R3 

F0RI=E-WT0E+USTEP2 
F0RJ=F-UT0F+USTEP2 
SETCI,J3 
NEXT JNEXT 
C0L0R4 

F0RI=SX-2T0SX+2 
SETCI,603 
NEXT 

FORI=60TO63 
SETCSX,13 
NEXT 
RETURN 
K*=INKEY$ 

I$=INKEY$:IFI$=""THEN20982 
IF I $ <>" "THEN20982 
RETURN 

CLS ^^ 

PRINT"YOU WERE IN THE fUATER) AND HA 

PRINT"BEEN REPOSITIONED FURTHER BA 

PRINT"UITH A PENALTY OF 1" 

FORI=1TO3000:NEXT 

G0T0715 

H0DEC13 


GS=INTC47/C2*G33 

HH=2*CH-A3*GS+63 

KK=CK-BB3*GS+31 

C0L0R4 

FORI=12TO106STEP2 
SETCI,83:SET C1,553 
NEXT 

F0RI=8T055STEP2 

SET C12,13:SETC106,13 

NEXT 

C0L0R2 

F0RI=12T031 

SET C63,13 

NEXT 

FOR I=63T075 

F0RJ=12T018 

SETCI,J3 

NEXT :NEXT 

FOR I=63-GST063 + GS 

F0RJ=31-GS/2T031+GS/2 

SETCI,J 3 

NEXT :NEXT 

C0L0R4 

K$=INKEY$ 

I$=INKEY$ 

SET CHH,KK3:SETCHH*1,KK3 
IF I$=""THEN60246 
IF I$<>" "THEN60246 
IFDI<=.5THEN15000 
GOTO8004 
PRINT0176,"90" 
PRINT0208,". " 

PRINT0240," 

PRINTS272,"." - - 

PR I NT@297 ,"180.. ./bALU. . 
PRINT0336,"." V ^ 
PRINT0368,"." 

PR INT0400,". " 

PRINT0432,"270" 

RETURN 


CROSS 


The program is purely 
graphics and works as follows: 

Line 16 sets random colour. 

Lines 30-60 creates what I 
call an inverted German Cross 
in multi colours. 

Lines 90-200 draw a circle in 
the cross. 

Lines 345-370 draw a square. 

Line 370 pauses to display 
the image. 

The end result looks like the 
‘Knights Cross with oak leaves’ 
just like the Germans issued 
their war heroes. 

It shows how we can use the 
capabilities of the VZ200 todraw 
very intricate designs by allow¬ 
ing the composition and place¬ 
ment of the A Z Y in the lines 
40-43 and 100-170, i.e. A+ 60 
change to A-60 or A + 60, 
30 + Y change to 30 + Y.A-60 all 
sorts of wonderful patterns can 
be created. 

G. Lucas 
Boroko PNG 
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GRAND PfflX 

(Ftr ZX81, IK) 


Grand Prix involves driving your 
racing car (an inverse ‘H’) down 
a convincing simulation of a 
racing course, while dodging 
other cars and people who are 
cleverly disguised. The object of 
the game is to last as long as 
possible. 

The keys ‘5’ and ‘8’ move you 
left and right. There is a high 
score feature and, after a game, 
press any key to play again. 

This program uses a number 
of unusual techniques. First of 
all, it uses a bit of machine code 
POKEd onto the first REM 
statement to speed things up. 
When called (by USR 16514), it 
returns a code relating to the 
character in the correct PRINT 
position. This replaces the line: 
PEEK (PEEK 16398 + 256* 
PEEK 16399) 

Also, in my article, ‘Larger 
Screen’ in Your Computer July 


1983 issue, POKE 16418,0 was 
used to obtain a 24 line screen. 
This location can also be used 
to make the screen smaller, and 
so save memory. 

POKE 16418,5 would change 
the screen to 32 by 18 lines - 
PRINT AT 19,0;“Jason” would 
result in an out of screen error 
report. The SCROLL command 
is also changed to work from 
this line. 

The scoring is also unusual, 
since the line NEXT S is used 
instead of the line LET S = S +1 
which uses up more memory 
and is slower. 

In the listing, A is a space 
and ‘gr.A’ means the graphic 
character on that key. 

My best score is 413. Can 
you beat that? 

Jason Teh 
Doncaster VIC 


1 REM 0000000 

POKE 16514,42 
POKE 16515.14 
POKE 16516,64 
POKE 16517,78 
POKE 16518,6 
POKE 16519,0 
POKE 16520,201 / 

2 POKE VAL "16418", VAL 
10 LET H=N0T PI 

20 LET A=VAL "8" 



ENTER DIRECTLY ON THE 
KEYBOARD. 


"5" 


30 LET B=VAL "5" 

40 CLS 

50 LET B=INT PI 
60 FOR S=0 TO 10 
70 SCROLL 

80 PRINT TAB D; "inverse space, gr. A, gr. A, 


gr. A, inverse space" 

90 IF RND>.7 THEN PRINT AT 18,D+RND*2+1; "gr. S" 
100 NEXT S 

110 LET B=B-(INKEY$="5")+(INKEY$="8") 

120 PRINT AT A,B; 

130 IF USR 16514<>C0DE "gr. A" THEN GOTO 180 
140 PRINT "inverse H" 

150 LET X=RND 

160 LET D=Df(X>.5 AND D<10)-(X<.5 AND D>0) 


170 GOTO 70 
180 PRINT "H" 

190 IF H<S THEN LET H=S 
200 PRINT "S="}S|"AAH="}H 
210 PAUSE VAL "4E4" 

220 GOTO VAL "20" 


ASTEROID DODGE 

(for ZX81, IK) 


Asteroid Dodge is an addictive 
game for the IK ZX81. The aim 
is to safely pilot your ship 
through space dodging the as¬ 
teroids hurtling towards you. 

Your ship is always moving 
left and cannot stay still. Pres¬ 
sing any key will move you 
right. Also, if you move too far 
to the side of the screen, your 
ship will disappear and appear 
on the other side, which makes 
the game harder. 


There is a high score and 
scoring mechanism. At the end 
of a game, just press any key 
to restart. Also, the game uses 
a short machine code routine 
POKEd onto a REM statement 
to speed things up. When 
called, the code value of the 
character in the current PRINT 
position is returned. 

Have fun!!! 

Jason Teh 
Doncaster VIC 


1 RB-: coon.. 00 

POKE 16514,42 
FOr'.fc 16515,14 

16516,64 

kkf: 16517,73 

POKrj 16518,6 

a+y; 16519,0 

• KE 16520,20" 

10 LET H=0 
20 LET 6=0 
30 CIS 
40 LET A=10 
50 1.ET 5= A 

60 PRINT AT 21 , RNT) *16;"*" 

n n. ■-'< <- r*. / : i 

1 w t LL 


30 IF JMKEY*<>"" THKN OFT B=B+2 
100 LET B=B+(-R AIO ">18)+(?0 AM) B<0) 

HO IRIK? AT A,R; 

ifO IF USR 165 1 4=C('!>E "*" THEN ONTO 160 

130 ms? "v 

MO LET 3=3+1 

150 GOTO 60 

160 IF F<S THEN LOT H=S 

170 PRINT "inverse . =";3;"AKinverse H=";K 
180 PAUSE 4E4 
190 GOTO 20 


N.B. To make the game harder, 
change line 60 to : 

60 PRINT AT 21 ,RND* 1 8; "**" 
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ESCAPE 

(For ZX81,16K) 


Here’s a short program - a 
game which starts easy and as 
you progress becomes more 
difficult. 

The object of the game is to 
dodge the black squares and to 
travel through the time gate 
which appears at random. If you 
do make it, more black squares 
appear randomly. Your score 
goes by steps of your input and 
rounds go up by one every time 
you reach the other side. Skill is 
obtained by score, rounds and 
level. To move your star use the 
keys A for up and Z for down. 

Garry Wilson 

Higgins ACT 


00010 LET B*="(Grap.ncs space 32 times, 

00020 LET S*0 

00030 LET D- 1C 

00040 LET U=1 

00050 LET R=C 

00060 GOTO 170 

00070 PRINT AT DJI" " 

00060 LET U=U+I 

0009C uET S--S+L 

00100 LET K$-!NKEY$ 

00110 LET D=D+ (K$=”Z")-("A") 

00120 P’lNT AT D.U; 

00130 IF PEEKiPEEK 16398+PEEK 16399*255>128 THEN 32TC 
00140 PRINT AT D-LI"*" 

00150 IF U>30 THEN GOTO 2«0 
00160 GOTO 70 

00170 PRINT A T 5.81 M * E S 2 A P E * " 

00180 PRINT AT 10.81"I-Put leueld-?)" 

00190 INPUT L 

00200 IF LOINT !L) 3R L -0 OR L> 5 THEN GOTO 190 
00210 CLS 
00220 PRINT B* 

00230 PRINT A” 21.0IB* 

00240 lET x--: 

00250 LET 9 = R*i 

00260 LG' x = >>: 

00270 LE' AI=RN0*(2C' 

00280 .E T A2-RND®i24,♦J 

290 PR IN' A1 , A2 I'' G.c s sP3:e : ' 

00300 I r \ :: L TGG'2 32 ! 

00310 G2TC 230 
00320 -23 E--: t: e: 

00330 ? 5 I o' A' E • 3; " ' Goa- • .;. sp.’.e 

003L0 NEXT E 

0035' _ET E2-R-2* -” 

00370 l-ET j . 

00GEO 2w3 

00400 pr: nT at 5 51 .ta.te :.£ : - 

00410 PRINT AT I0.:‘"ECCRE "'5 

00420 PRINT AT :5.3 , 't: J \2 £‘- 

00430 PRINT A' 2£5 - = 

i)0440 3 RI nT"?RE53 •' E'. FI AnE'^E". ; -E 

004?c ic 

00460 Cw3 

'•’0470 RL\ 


N.B. To make the game harder, 
change line 60 to : 

60 PRINT AT 21,RND*18; "**" 


ZX81 SKETCH 

(Fop ZX81,110 


There are many ‘drawing’ pro¬ 
grams for the ZX81, but many 
are wasteful of memory. While 
this is alright for a 16K ZX81 IK 
owners are much disadvan¬ 
taged. I have sought to remedy 
this, and have produced 
“Sketch’’ for the 1K ZX81, using 
the PLOT command to get a re¬ 
solution of 40 by 40. 

There are 8 directions in 
which you can move and you 
can rubout as well as draw. The 
key directions are with the list¬ 
ing. 

To get into DRAW mode, 
press 9’ and to RUBOUT, 
press O’. If you own a 16K 
ZX81, change and add the 
extra lines. You now have some 
bonus commands as well as a 
resolution of 64 by 44. Pressing 
Z will dump the screen to the 
printer, and will let you continue 
drawing. “C” will now clear the 
screen. Finally, pressing ‘S’ will 
SAVE the screen and the pro¬ 
gram onto tape, and will let you 
continue drawing the same pic¬ 
ture at a later date. Before pres¬ 
sing ‘S’, make sure the tape 
recorder is recording!! 

Jason Teh 
Doncaster VIC 

10 LET Z=1 
20 LET X=0 
30 LET Y=X 
40 LET A$=INKEY$ 

50 IP A$="0" THEN LET Z= -Z 
60 LET X=X+(A$="8" CR A$= n 1" OR A$="2") 
(AS="5" OR A$="3" OR A3=”4") 

70 LET Y=Y-t-(AS="7" OR A$="1" CR A$="4") 
(A$="6" OR A3="2" OR A$="3") 

80 LET X=X+(X<0)-(X>40) 

90 LET Y=Y+(Y<0)-(Y>40) 

100 UNPL0T X,Y 
110 PLOT X,Y 

120 IF Z=1 THEN UNPLOT X,Y 
130 GOTC 40 

If you own a 16k ZX81, change and 
add the following: 

80 LET X=X+(X<0)-(X163) 

90 LET Y=Y+(Y<0)-(Y>43) 

130 IF A3="Z" THEN COPY 

140 IF A3="C" THEN CLS 

150 IF AS="S" THEN SAVE "SKETCH" 

160 GOTO 40 
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ATTR FILL 

(For Spectrum) 


CHEMISTRY 

(FOP ZX81, IK) 


This program is for a ZX Spec¬ 
trum with any memory size. 

One annoying fact that I find 
when using the Spectrum is that 
if you want the PAPER, INK, 

FLASH or BRIGHT commands 
to work globally (the whole 
screen), you have to clear the 
screen first with CLS and so de¬ 
stroy the display, which might 
have taken a long time to set 
up. To overcome this, I have 
written a short machine code 
routine, only 18 bytes long, 
which changes the screen in¬ 
stantly without clearing the 
screen. 

To use it,just enter the appro¬ 
priate colour commands such 
as: PAPER 6: INK 1: FLASH 1 
and call the routine. The whole 
screen should then become yel¬ 
low, with blue lettering and 
everything flashing. The screen 
displays will still be there. 

You can also do this by POK¬ 
ING the attribute number into 
address 23693, which in this 
case would be 177, and then 
calling the routine. 

There are two parts to the 
listing. The first POKEs the 
machine code stored in a DATA 
statement, above RAMTOP and 
the second is a demonstration 
program. 

As listed, the program is for 
a 16K Spectrum but to change 
it for a 48K Spectrum, change 
every address 32582 to 65349 
and every 32583 to 65350. You 
call the routine by LET L = USR 
32583 - 16K or LET L = USR 
65350 - 48K. 

First type in Listing 1 and 
RUN it. Save the code by SAVE 
“ATTR FILLXODE 32583,18 
and VERIFY it. NEW the 
machine and type in the 
demonstration program. Re¬ 
member to CLEAR 32582 be¬ 
fore LOADING. 

Jason Teh 
Doncaster Vic 

Demonstration. 


This program tests your knowl¬ 
edge of the first ten chemical 
elements. Run the program and 
the computer will randomly print 
the name of one of the ele¬ 
ments and asks you to input the 
atomic number and then the 
symbol for that element. The 
computer will tell you whether 
your answers are correct or will 
give you the correct answer. 

D.W. Moore 
North Geelong VIC 

2 PRINT "CHEMISTRY" inverse 

5 PAUSET 150 

6 CLS 

10 GOSUB I NT (RND * 10} -X 2 + 100 
. 15 PRINT AS' C5 TO) 

16 FOR F=1 TO 3 STEP 2 

17 IF F=1 THER PHTNT "ATOMIC NUMBER? 

18 LET Cg± " " two spaces 

19 IF F=3 THEN PRINT "SYMBOL? 

20 INPUT Bg 

27 LET CST Cl} = Bf (1) 

28 IF LEN BjS> = 2 THEN LET Cg (2) = Bg (2) 
40 IF Cg <> kg (F TO F+l) THEN GOTO 80 

50 PRINT "YES ";C* 

60 GOTO 85 

80 PRINT "NOT »;C0;" kg' (F TO F+l) 

85 NEXT F 
90 GOTO 5 

100 LET kg = "1 H HYDROGEN" 

101 RETURN 

102 LET kg = "2 HEHELIUM" 

103 RETURN 

104 LET kg - "3 LILITHIUM" 

105 RETURN 

106 LET A# = "4 BEBERYLLIUM" 

107 RETURN 

108 LET Ag = "5 B BORON" 

109 RETURN 

110 LET Ag - "6 C CARBON" 

111 RETURN 


10 CLEAR 32582: LET X=?32582 
20 FOR N=X+1 TO X+18 
30 READ A: POKE N,A 
40 NEXT N 

50 DATA 33,0,88,1,192,90,58,141,92,119, 
35,167,237,66,9,32,248,201 


10 FOR N=0 TO 255 STEP 2 

20 PLOT 0,0: DRAW N,RND*175 

30 NEXT N 

40 FOR N=0 TO 7 

50 PAPER N: INK 7-N 

60 LET L=USR 32583 

70 PAUSE 10 

80 NEXT N 

90 GOTO 40 


112 LET Ag = "7 N NITROGEN" 

113 RETURN 

114 LET Ag = "8 0 OXYGEN" 

115 RETURN 

116 LET Ag = "9 F FLUORINE" 

117 RETURN 

118 LET Ag = "10NENEON" 

119 RETURN 



HI-TECH COMES 

HOME! 



All of a sudden, 
the future is NOW! 
Here's a magazine 
to help you 
understand — and 
enjoy — the latest 
technological 
advances. 

All around us, breakthroughs in 
technology are occuring. 
Changes are being made to 
many facets of our lives. 
Electronics Lifestyle is all about 
your lifestyle. It reports on 
advances in computing ... v 
entertainment... 
communications. Learn how to 
make the most of the new 
breakthroughs — and how to 
make them work for you! 


$ 3.25 

at your news stand 





























My program is a variation of the 
game ‘Black Box’ invented by 
Dr. Eric Solomon. It is a game 
of logic that can easily be con¬ 
verted to run on a Peach be¬ 
cause the two machines are vir¬ 
tually identical. 

The object of black box is to 
find four protons in a box. The 
paths of electrons shot into the 


box give the clues. Because the 
red light emission of the elec¬ 
tron is only temporary it be¬ 
comes necessary to have a 
working space to put down your 
ideas. This is provided in the 
form of a second board, discon¬ 
nected from play. 

The number of shots you 
have used to find the correct 


1 CLS: COLOR 4, 0,0, 7s WIDTH 40,25 

2 DEF CHR$<123> = "080810E010080808" : DEF CHR*<148>= M 80C0E0F0F8FCFEFF":DEF CHR$<149 

) = "0103070F1F3F7FFF": REM 4 k d ResPectavly. 

3 PRINT“Do you want instructions?" 

4 P=PEEK<1424):IF P=0 THEM P=RND:60T0 4 

5 IF P= 89 OR P= 1 2 1 THEN 45 

6 IF PE EK < 14 24)=0 THEN X=RND?GOTO 6 

7 CL S 

8 XMINKEV*: FOR X = 329 TO 570 STEP 30 

9 LINE (X,4 7 ) -< X,151)>PSET,l 

10 NEXT 

11 FOR V s 47 TO 152 STEP 13 

12 LINE <329,V>-<569,V),PSET,1 

13 NEXT 

14 COLOR 6 s PRINT " ’CLS’ 'HO ME’ ":COL OR 4 

15 LOCATE 0,23 s PR I NT "PRESS THE SPACE BAR TO FIRE AND"s PRINT “THE RETURN KEV TO 
SHOW THE PROTONS"? 

16 FOR 1 = 1 TO 8s LOCATE 3, I+7:PR I NT "••••••••";:NEXT 

17 DIM A<9,9>sF0R X=0 TO 9:AC X,0)=2:A<X,9) = 2sA<0,X)=2:A<9,X)*2sNEXT 

18 FOR 1 = 1 TO 4:N<I> = I NT<RND*8> + 1:M<I> = I NT<RND*8> + 1:NEXT 

19 FOR 1=1 TO 3 s FOR 0=1 + 1 TO 4: IF N<0) = N(I) AND M<0>=M<I> THEN 1=20:0 = 20 

20 NEXTs NEXTs IF I>10 THEN 18 

21 FOR X=1 TO 4:A < N < X),M< X))=1:NEXT:W = 2 

22 GOSUB 137 

23 CC=0:Q1=QsW1=WsIF W=0 THEN XX=0:VV=1sGOTO 27 

24 IF W=9 THEN XX = 0: VV = -1:GOT0 27 

25 IF Q= 6 THEN XX = 1sVV = 0:60T0 27 

26 XX = -1s VV = 0 


27 CC=CC+1:01=Q1+XX:W1=W1+VV:C=A<W1»Q1):IF CC>59 THEN BEEP:BEEPsBEEP:60T0 44 

28 IF C=2 THEN 39 

29 IF C=1 THEN 43 

30 IF VV = 0 THEN C1 = A<W1 -1,01):C2 = A<W1 + 1,Ql > :GOT0 35 ELSE C1 = A<W1,Q1 - 1):C2 = A<W1,0 
1 + 1 > 


31 IF Cl=l 
3 2 IF C1 = 1 

33 IF C2= 1 

34 GOTO 27 

35 IF Cl=l 

36 IF C1=1 

37 IF C2 = 1 

38 GOTO 27 

39 CL = 2 

40 IF Ql =0 
N K = W 1 * 1 3 


AND C2=1 THEN 27 
THEN XX=1:VV=0:60T0 27 
THEN XX = -1:VV = 0 

AND C2 = 1 THEN 27 
THEN VV=l:XX=0:GOTO 27 
THEN VV=-1:XX=0 


THEN K=W1*13+41:LINE 
41:LINE <569,K>-<639,K 


329,K>~<200,K>,PSET,CL:GOTO 43 ELSE IF Ql =9 THE 
,PSET,CL:GOTO 43 


41 IF W1=0 THEN K=Q1*30+314: LINE <K, 47 )-< K, 0> , PSET , CL’• SOTO 43 

42 IF W1=9 THEN K*Q1*30 + 314:LINE <K,15 1)-<K, 199),PSET,CL 

43 IF CL=2 THEN CL=0:PAUSE 3:GOTO 40 

44 CN=CN+1:BEEP:LOCATE 0,0;PRINT CN;:60T0 22 

45 CLS:COLOR 7 

46 PRINT 

47 PRINT 

48 PRINT "■■■t m 

50 PRINT m m 4W m 

51 PRINT "HHB H 

54 print 'mmmr mLmm 

55 PRINT 

56 PRINT 

57 PRINT 

58 PRINT 

59 PRINT ; 

60 PRINT " m 

61 PRINT " m W 

62 PRINT " MMi 

63 PRINT * m Wl 

64 PRINT " m MW 

65 PRINT " HHV 

66 PRINT 

67 FOR P=1 TO 8001 COLOR 
COLOR 4,,,7 

68 CLS:PRINT "This game is based on the Principles of" 

69 PRINT "a Physics experiment. Basicly there are" 

■four Protons in a square box, 8 by 8 in" 

"area. Vou are the experimenter and need" 

"to know where they are.":PRINT 
"To do this you fire a char9ed Particle," 

"into the side of the box and note where" 

"it emer9es. Move the electron around " 

"the border and when it is in Position," 

"Press the space bar. It will then move" 

"unseen 9uided by the four Protons." 


, l:COLOR 


, 2s COLOR 


, 4:NEXT: 


70 PRINT 

71 PRINT 

72 PRINT 

73 PRINT 

74 PRINT 

75 PRINT 

76 PRINT 

77 PRINT 

78 PRINT 

79 PRINT 

80 PRINT 

81 PRINT 

82 PRINT 


"The Protons will absorb the electron if" 
"it collides head on. When it Passes the" 
"Proton in the adjacent co-ordinate, it 


83 PRINT "will change direction by 90 degrees. If" 
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position of ail the protons is the instructions on play are in the 
measure of how good you are. program but these are not 

Seven shots is reasonable but necessary for it to run. Have fun 

teens are common. It is possi- and don’t strain anything! 
ble to change the number of 
protons by changing lines 18, 

19 and 21. The program is writ- ^ 

ten in Microsoft Basic so it can f 

be adapted to most machines. Tony Hlnde 

It’s well worth the effort. Further Tarragindi Qld 


(4 PRINT "it Passes between two Protons then its* 

15 PRINT "Path is uneffected." 

16 PRINT 

!7 PRINT "When the electron emerges from the box" 

1 8 PRINT "it leaves a beam of red light for a" 

19 PRINT "few seconds." 

'0 COLOR 5* PRINT "HIT ANY KEV TO CONTINUE";:COLOR 4 
>1 IF PEEK<1424)*0 THEN X«RND:60T0 91 ELSE X4-INKEV* 


2 

CLS 




3 

PRINT 

Here are some 

example shots.. 

.« 

4 

PRINT 

••••••X* 



5 

PRINT 

•X • X 

-Proton 


6 

PRINT 

HtNIll 








8 

PRINT 



aaaataaa" 

9 

PRINT 



aaaataaa" 

00 

PRINT 

■ «• 1*4-4 ♦ ♦ 4- 

«-Entry Point 

•X ^ ••• 

01 

PRINT 

" HXIMM 



02 

PRINT 



t 

03 

COLOR 

5s PRINT "HIT 

ANY KEY" 


04 

PRINT 

"TO CONTINUE" 

* s COLOR 4s PRINT 

■ 

05 

PRINT 



1 M 

06 

PRINT 



1 " 

08 

PRINT 

" ••XX»»»« 

•X • 

•X • 1 

09 

PRINT 

" •••!•••• 



10 

PRINT 



••taaaai 1 

1 1 

PRINT 

" ••XtX»*» 

••+••• 4-* 


12 

PRINT 

" HatHM 

M V4-4-4-<X 

• • ^4-4-4—> X’ 

13 

PRINT 

" MataaM 

••Xaaeta 

••X«»at«' 

14 

PRINT 




15 

PRINT 

• t 

t 

t" 


16 IF PEEK< 1424) *0 THEN X-RND:60T0 116 ELSE XMINKEY* 

17 CLS»PRINT "To assist you in your experiment a board"! 

18 PRINT "has been Provided for you to use as a" 

19 PRINT "guide. Vou can set uP Protons on it so" 

20 PRINT "you can best Judge where to shoot next." 

21 PRINT "To use the bourd you Press the CLS key." 

22 PRINT "then you can move about the board by the"; 

23 PRINT "arrow keys. To set a Proton Press the" 

24 PRINT "INS key. to reset it Press the DEL key." 

25 PRINT “You may Press any key and that simbol or"; 

26 PRINT "letter will aPPear on the board. This" 

27 PRINT "way you may cancel Places that you know" 


128 PRINT "are not Protons. You can also rank the" 

129 PRINT "Probability of a Proton being in a sPot."; 

130 PRINT "When you want to 9et back to the exPer-" 

131 PRINT "iment you Press the HOME key." 

132 PRINT;PRINTsCOLOR 5sPRINT"PRESS ANY KEV TO CONTINUE":COLOR 4 

133 60T0 6 

134 FOR X* 1 TO 8 ; FOR Y-l TO 8 : IF A<X,Y>-1 THEN PRINT < < V) * 38+ 31 5, < X) * 1 3+ 40 ) , 2 , 1 

135 NEXT;NEXT 

136 IF PEEK<1424)*0 THEN 136 ELSE RUN 

137 X2«315 + Q*30s Y2-41+WM3: X1-X2: V1-Y2 

138 P*PEEK<1424);IF <P<28 OR P>32> AND P<>13 AND P<>12 THEN U=7-U:PSET<X1,V1.U) 
GOTO 138 

139 IF P-12 THEN GOSUB 151S60T0 138 

140 IF P-13 THEN 134 

141 BX-Q;BV-W;IF P-28 THEN Q-Q+l 

142 IF P-29 THEN Q-Q-l ELSE IF P-30 THEN W-W-l ELSE IF P=31 THEN W-W + l 

143 IF P-32 THEN IF <Q = 0 OR Q-9) AND (W-0 OR W-9) THEN 147 ELSE RETURN 

144 IF Q<0 OR Q>9 OR W>9 OR W<0 THEN 147 

145 IF Q>0 AND Q<9 AND U>0 AND W<9 THEN 147 

146 GOTO 148 

147 Q-BX;W-BV:60T0 138 

148 Xl = 315 + Q*308 Vl«41+U*13 

149 PSET <X1 * V1» 7)s PSET <X2.Y2,0)sX2-X1:V2-Y1 

150 GOTO 138 

151 J-0;K-08 GOTO 167 

152 P»PEEK< 1424):IF P-0 THEN LOCATE J+3,K+ 8 :PR I NT " ”CHR*<29)K*l>GOTO 152 

153 IF P-11 THEN RETURN 

154 IF P -8 THEN LOCATE J+3,K + 8 :PR I NT "•“;s60T0 167 

155 IF P-18 THEN LOCATE J+3,K + 8 :PR I NT"X";:60TO 167 

156 IF P> 27 AND P<32 THEN 159 

157 IF P > 31 THEN LOCATE J+3.K + 8 :PR I NT CHR»<P);:60T0 167 

158 GOTO 152 

159 IF P-28 THEN J»J+1:60T0 163 

160 IF P-29 THEN J-J-P60T0 163 

161 IF P-30 THEN K-K-1S60T0 163 

162 K-K + l 

163 IF K>7 THEN K-7 

164 IF K< 0 THEN K-0 

165 IF J<0 THEN J-0 

166 IF J> 7 THEN J-7 

167 K$=CHR4<SCREEN< J* 3» K + 8)):60TO 152 














WORD COUNT FOR HITACHI PfACH 


Phillip Cookson 
Doveton NSW 


After reading Les Bell’s “Under¬ 
standing Assembler” tutorial in 
the October 1983 issue of 
“Your Computer”, I was in¬ 
spired to write a BASIC pro¬ 
gram to count the words in a 


word processing data file (Les 
suggested to write a word 
counting program in a higher 
level language before attempt¬ 
ing a machine code version). 
The program is written in Micro¬ 


soft BASIC. Although the pro¬ 
gram is slow, it works correctly 
and will be of use to anyone 
who uses the HiWriter word 
processing software. The pro¬ 
gram performs a word count of 


a text file created by HiWriter 
(which currently has no facility 
for performing a word count). It 
ignores embedded format com¬ 
mands and remarks giving an 
accurate word count. 


100 ’ WORD COUNT By Philip Cookson Novmbsr, 1983 

110 • 

120 ' This progru performs a word count on a data lilt cr»at*d by the 
130 ’ HiWriter word processing package. Words are defined to be groups 
140 * of letters A-Z or a-z separated by spaces or by a carriage return. 

150 ’ This program ignores control characters, or Nords appearing on an 
160 * 8 command line. 

170 ’ 

180 ON ERROR GO TO 830 

190 CLS!WIDTH 80!NWORD-O:DRVE*--1!• 

200 LINE(O,O)-(639,199),PSET,1,B:COLOR 3 
210 LOCATE 31,2:PRINT "WORD COUNT” 

220 LOCATE 31,3:PRINT ”-■ 

230 LOCATE 25,23:PRINT ”*** Default Drive is l: #**” 

240 ’ 

250 ’ Input name of data file that is to be counted 
260 • 

270 COLOR 6:LOCATE 8,3 

280 PRINT ‘Please input the name of the data file that you Nish to count.” 

290 COLOR 7!LOCATE 35,7!INPUT"”,FLNNE* 

300 ’ 

310 ’ Place the input in a valid format 
320 • 

330 IF RIGHT* (FLNMES,4)0”. DAT” THEN FLNME*-FLNME*+ " . DAT " 

340 IF LEFT*(FLNNE*,2)<>"11” OR LEFT*(FLNNE*,2)<>”0:” THEN FLNMEC-DRVEC+FLNME* 
330 • 

360 ’ Print name of data file being searched 
370 ’ 

380 LOCATE 6,5:PRINT SPC(70) 

390 COLOR 6:L0CATE 22,3:PRINT -Data file currently being searched” 

400 COLOR 7!LOCATE 33,7:PRINT FLNNE* 

410 ’ 

420 ' Open data file to be searched 
430 ' 

440 OPEN ”I”,41,FLNNE* 

450 COLOR 3 

460 LOCATE 30,10:PRINT ” Number of words " 

470 LOCATE 30,14:PRINT ’Count in progress” 

480 ’ 

490 * Search for letters A-Z or a-z 
500 ’ 

310 ACHAR*—INPUT*(1,41) 

320 IF ASC(ACHAR*)>64 AND ASC(ACHAR*)<91 THEN GO TO 580 
530 IF ASC(ACHAR*)>96 AND ASC(ACHAR*)<123 THEN GO TO 380 
340 IF ACHAR*-”*” THEN GO TO 630 ELSE GO TO 310 
550 * 

560 ’ Subroutine to count words, and locate the end of the word 


570 ’ 

380 NWORD-NWORD+i:LOCATE 37,12:PRINT NWORD 
590 ACHAR*—INPUT*(1,41) 

600 IF ACHAR*-” ” THEN GO TO 310 

610 IF ACHAR*—CHR*(13) THEN GO TO 510 ELSE GO TO 590 
620 ’ 

630 * Subroutine to ignore all words appearing on an * command line 
640 ’ 

650 ACHAR*-1 NPUT* (1,4)1) 

660 IF ACHAR*-**” THEN GO TO 510 

670 IF ACHAR*—CHR*(13) THEN GO TO 510 ELSE GO TO 630 
680 ’ 

690 ’ Print the word count on the screen 
700 * 

710 LOCATE 37,12:PRINT NWORD 

720 COLOR 2:LOCATE 30,14:PRINT "Counting Comp 1eted”:BEEP 
730 CLOSE 441 
740 • 

730 * Search another data file ? 

760 • 

770 COLOR 4:LOCATE 15,20 

780 PRINT *Do you wish to search another data file (Y/N) ? ” 

790 ANS«-INKEY*:IF ANS*=”” THEN GO TO 790 

800 IF ANS*—”n” OR ANS*-”N” THEN COLOR 7:CLS:END 

810 IF ANS*—”y” OR ANS*=“Y” THEN GO TO 190 ELSE BEEP:GO TO 790 

820 * 

830 ’ Error handling subroutine 
840 ' 

850 * End of data file detection 
860 IF ERR—54 THEN RESUNE 710 
870 • 

880 ’ File not found error 
890 IF ERR063 THEN GO TO 950 
900 COLOR 2:LOCATE 32,9 

910 BEEP:INPUT WAIT 92015,’FILE NOT FOUND”;DUN* 

920 RESUNE 190 
930 • 

940 * Device Unavailable error 
950 IF ERRO60 THEN GO TO 1010 
960 COLOR 2:LOCATE 32,9 

970 BEEP:INPUT WAIT 98013,'DEVICE UNAVAILABLE”;DUN* 

980 RESUNE 190 
990 • 

1000 ’ Niscellaneous error 

loio cls:locate 5,12 

1020 BEEP:PRINT "ERROR CODE*,ERR,”ON LINE”,ERL:END 


CAME FOR CASIO PB-100 


The game ‘Camel’ is originally 
from the book ‘Basic Computer 
Games’ by David Ahl, although 
this version was written on a 
train trip between northern 
NSW and Sydney. 

The aim of the game is to 
travel 200 miles across a hostile 
desert while the pygmies are 
chasing you. In order to fit it into 
a PC-100 with the RAM pack (it 
takes 1399 steps) the mes¬ 
sages have been abbreviated. 
For example: 

L. 120 - distance pygmies 
are behind; 

L. 130 - distance you have 
travelled; 

L. 610 - turns you can go 
without a drink; 

L. 600 - number of days the 
camel can travel without a rest. 

The instructions have been 
included so they may be written 
down if necessary before you 
play. 

The display frequently halts 


and the EXEC key must be hit 
to continue (this is faster than 
letting it print out long mes¬ 
sages on its own). 

During the course of the 
game, variables, such as drinks 
left or camel days left, will vary 
according to your instructions 
so a STATUS CHECK (5) will 
indicate whether it is necessary 
to stop for the night or take a 
drink. 

Variables used are: 

C. ..distance covered by the 
player . 

D. ..distance covered by the 
pygmies 

Z...turns you can go without a 
drink 

S...number of drinks left 

F. ..’camel days’ left 

G. ..skill level 

Y...command choice 
P & R are used as counters. 

Linda McGarry 
Kentucky NSW 


10 PRINT "CAMEL” 

20 INPUT "INSTRUCTION”,*:IF 
NID(1,1)—“Y”;GOSUB 1000 
30 GOSUB 1030 
40 INPUT "LEVEL 1-3”,G 
30 IF 0199 THEN 960 
60 Z-Z-l:lF Z<«1;PRINT 'GET DRINK- 
70 IF Z<0 THEN 940 
80 P-P+l:X»INT( (3*G)#RAN44+2.3) 

90 IF P<4 THEN 130 
100 D=D+X:IF D<C THEN 120 
110 PRINT -Captured by pygmies”:GOTO 
1100 

120 PRINT “Pygmies”;C-D;" m" 

130 PRINT "You”;C;” m” 

140 IF S=1> PRINT -Oasis..now- 
130 R=0:INPUT ”CONNAND”,Y:IF Y<1 THEN 
130 

160 IF Y>6 THEN 150 
170 GOTO Y*100+100 

200 s=s-i:z= 4 :if s <0 then 940 

210 GOTO 140 

300 PRINT 'Mod. Pace”:F-F+l:IF F>7 THEN 
930 

310 GOTO 800 

320 X-INT (104FRAN44) : C-C + X 
330 GOTO 50 

400 PRINT -Fast Pace”:F-F+3:IF F>7 THEN 
930 

410 GOTO 800 

420 X—INT (RAN44# 10) *2 : C-C + X 
430 GOTO 50 

500 PRINT “Good Idea”:F=0:lF G>3*S-S-l: 

IF S<0 THEN 940 
510 GOTO 60 

600 PRINT -Camel”;7-F;" days',S-l;" 
drinks" 

610 PRINT Z;” turns w/o” 

620 S=S-i:Z=4:IF S<0 THEN 940 
630 GOTO 140 


700 T-INT (RAN44#10) : IF TP1 THEN 940 
710 PRINT "Found Unconscious”:S-3 :Z 
TO 30 

800 A-INT (RAN44#100) : IF A>5 THEN 910 
820 PRINT "Captured by Berbers”,"CHI 

830 PRINT ”1)Attempt escape”,”2)Wai 
ransom- 

840 INPUT ”ACTION”,X:IF X-2 THEN 881 
830 X-INT (RAN4HF10) : IF X<5 THEN 870 
860 PRINT -ESCAPED!!”:GOTO 30 
870 PRINT -Mortally Wounded”:END 
880 X-INT (RAN44#100) : IF X<=24; PRINT 
‘Ransom paid”:GOTO 50 
890 PRINT -Wait...”:R=R+l:IF R>3;PR1 
-Cell key lost”:END 
900 GOTO 840 

910 A-INT <RAN44#10) : IF A>2 THEN Y#1 0t 
920 PRINT -Oasis...':Z=4:F=F-2:S=6:] 
F>7;F=7 

930 GOTO Y*100+130 

940 PRINT -Terminal dehydration":EN1 
950 PRINT -Killed camel -:END 
960 PRINT "*#YOU WIN##", "Pygmies 
pi eased-:END 

1000 PRINT -CHOICES:’,-DDRINK-, "2)f 
ATE SPEED- 

1010 PRINT “3)FULL SPEED4)STOP F( 
NIGHT- 

1020 PRINT -5)STATUS CHECK6)HOPE 
HELP’:RETURN 
1030 VAC 

1040 Z=3:S=6:RETURN 

1100 X-INT<RAN##100):PRINT ’CHOICES: 
1110 PRINT *l)Fight“,"2)Run■ 

1120 INPUT -ACTION-,V:IF V-2 THEN 1: 
1130 IF X>80}D=C-20:GOTO 50 
1140 PRINT -Kneecaps attacked":END 
1150 IF X>60»PRINT -Escaped...-:D=C- 
10:GOTO 50 

1160 PRINT -Pygmies will feast-:END 
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Oho 

HIGH-SPEED 

TRIGONOMETRIC FUNCTIONS 

This is a program for Forth on These programs provide a 
the Ohio Scientific Computers, source of values for Sine x to 
but the programs are designed plot circles in real time, 

to operate on any Forth The routine is called using: ‘n 
machine. The program provides SIN’ where n is a signed integer 
high speed trig functions for real number on the top of the stack, 
time applications. It returns a signed integer 

It is possible to obtain trig number to the stack. This value 
functions from the floating point is SIN n degrees times 10,000. 
system used by BASIC in ROM Values for Cosine are obtained 
but these routines are slow in a similar manner, that is, ‘n 
when needed for real time plot- COS’. 

ting of graphical information. . , .. 

John Lindsay 

Trinity Gardens SA 


SCR # 15 

0 ( TRIG FUNCTIONS - J.S.LINDSAY 27/2/83 ) 

1 FORTH DEFINITIONS DECIMAL 

2 91 ODIM SINTABLE ( SET UP 91 ELEMENT ARRAY INC. 0 ) 

3 ( START OF LOOK UP TABLE ) 

A 0000 0175 0349 0523 0698 0872 1045 1219 1392 1564 

5 1736 1908 2079 2250 2419 2588 2756 2924 3090 3256 

6 3420 3584 3746 3907 4067 4226 4384 4540 4695 4848 

7 5000 5150 5299 5446 5592 5736 5878 6018 6157 6293 

8 6428 6561 6691 6820 6947 7071 7193 7314 7431 7547 

9 : TABLE 50 0 DO 49 I - SINTABLE ! LOOP ; TABLE 

10 FORGET TABLE ( USE AND DISCARD ) 

11 7660 7771 7880 7986 8090 8192 8290 8387 8480 8572 

12 8660 8746 8829 8910 8988 9063 9135 9205 9272 9336 

13 9397 9455 9511 9563 9613 9659 9703 9744 9781 9816 

14 9848 9877 9903 9925 9945 9962 9976 9986 9994 9998 

15 10000 —> 


SCR # 16 

0 ( TRIG FUNCTIONS 2 ) 

1 : TABLE 41 0 DO 90 I - SINTABLE ! LOOP ; TABLE 

2 FORGET TABLE ( USE AND DISCARD ) 

3 : SIN180 DUP 90 > IF 180 SWAP - THEN SINTABLE @ ; 

4 

5 : SIN DUP DUP ABS / SWAP ABS 

6 360 /MOD DROP DUP 180 > IF 180 - -1 SWAP 

7 ELSE 1 SWAP THEN SIN180 * * ; 

8 

9 : COS 90 + SIN ; 

10 

11 

12 ;S 

13 

14 

15 
OK 


MBWORY TESTER 


FORCA 





This is a fairly simple Memory 
Test game in which the com¬ 
puter generates an increasingly 
large random number (dis¬ 
played on the screen for an in¬ 
creasingly large period of time) 
which you, after a ten second 
pause, have to input back. The 
computer allows you three tries 
to input the correct number, but 
three ‘strikes’ and you’re out. 


1 C=0 

5 VAC 

6 Z=1 

10 WAIT 20:PRT ”** 
MEHORY TESTER 
**”!PRT ”” 

15 IMP ”ANY NUMBER 
=”,S 

20 S=INT <RANI*10) 
/199*100 

25 IF 8=0 THEN 20 
30 N=INT <S*Z) 

35 C=C+5 

40 WAIT C:PRT ”REM 
EMBER”;N 

49 HAIT 60:PRT ” 


60 IF H=3 THEN 209 
80 INP "HHflTS THE 
NUMBER”,S 
90 IF S*N;HAIT 20: 
PRT ”HR0N6”:H=H 
+l:G0T0 60 
110 WAIT 20:PRT ”RI 
6HT!”:R=R+l:H=0 
: 2 = 11*2 

120 WAIT 20:PRT Ri" 
RIGHT SO FAR”: 
GOTO 20 

200 WAIT 30:PRT ”F0 
RGET ITISTART 0 
VER”:GOTO 1 


SAMPLE RUN 


** MEMORY TESTER ** 

ANY NUMBER 2 ? 

3 

REMEMBER 4 

HHATS THE NUMBER? 

4 

RIGHT! 

1 RI6HT SO FAR 
REMEMBER 33 

HHATS THE NUMBER? 

33 

RIGHT! 

2 RIGHT SO FAR 
REMEMBER 304 

HHATS THE NUMBER? 
403 # 

HRONG 

HHATS THE NUMBER? 

430 

HRONG 

HHATS THE NUMBER? 

340 

HRONG 

FORGET IT!START OVER 
** MEMORY TESTER ** 


Patrick Mead 
Ashgrove QLD 


ANY NUMBER 2 ? 






issues: y 

Does your child really need a home computer? 

It’s become rather difficult to see through all the media 
hype! We provide down-to-earth answers to major 
questions (Will your child by handicapped without a 
computer? Or even handicapped by one?) 

The push into the schools market 
An impartial look at the wave of advertising power 
currently breaking over the (supposedly) lucrative 
schools market. Who really stands to gain — the kids, 
or computer manufacturers? ./ 

VIEWPOINT S: 

What the experts say 

Recognised authorities in the fields of both education 
and computing give their opinions. 

How the teachers feel 

Computers are likely to feature strongly in the future of 
education. We tell how teaching staff are coming to 
grips with this fact. 

What the kids think 

Are computers worthwhile? Just good fun? Or a waste 
of time? Students comment (candidly) on how they feel 
about computer education. 


All this, plus a useful 
directory of services, and 
a simple-language 
glossary to help you in 
your purchase of a 
computer. 

AVAILABLE JANUARY, 1985 



AT LAST! A 
PUBLICATION FOR 
TEACHERS, PARENTS, 
STUDENTS ... AND 
ANYONE CONCERNED 
WITH THIS VERY 
IMPORTANT ISSUE. 


PRACTICALITIES 


□r 


How to pick the right system 
For high schools, primary schools. 

Educational software 

What’s available; what’s really educational; what to look 
for when shopping. 

Networking and schools 

What it is; how it works; how it can help. 

Computer aided education in practice 
Getting right down to basics: how are computers 
actually used in the schoolroom? 

Computers in administration. The out-of-the-classroom 
aspect. How computers can streamline the behind- 


scenes running of a school. 


CASE HISTORIES 


iV 


The UK scene 

How far has computer education advanced overseas? 
And how far will it go? 

True-life stories 

From schools around Australia — how computers are 
working for them. 










COMPUTHI CLUB UST 



ACT Micro 80 Users Group, Bill 
Cushing, 10 Urambi Village, 
Kambah, 2902, 062 313630. 

ACT Vic 20 Users Association, 
Chris Groenhout, 25 Kerferd St, 
Watson, 2602, 062 41 2316, 
Meetings 1st Monday each 
month at Boy’s Grammar Scout 
Hall, Red Hill, 7.30 onwards. 
ACTARI, Chris McEwan, Co-Or- 
dinator, ACTARI, P.O. Box El 12, 
Canberra, 2600, 062 88 7861. 
Apple User Group (ACT), Jeff 
Brock, 1 Buckley Circuit, KAM¬ 
BAH, 2902, 062 313630. 
Australian ZX80 Users 
Group(AZUG), David Brudenall, 
19 Godfrey Street, Campbell, 


2601, for ZX80/Microace owners. 
Canberra ACT Sirius User 
Group, Jim Bland, 062 81 2824, 
062 81 2832. 

Canberra Compucolor Club 

(CCC), Meets 7.30 on first Sun¬ 
day of every month at the offices 
of Digital Equipment, 28 Lonsdale 
Street, Braddon ACT. 

Canberra Microbee Users 
Group, Hugh Gibson, Microbee 
Store, Level 1, Cooleman Court, 
Weston, 2611, 062 88 6384. 
Canberra Microbee Users 
Group, Adrian Van Wierst, 9 
McGowan Street, Dickson, 062 
49 7030. 

Canberra Micro-80 User Group, 


Milt Cottee, 33 Crawford Cres, 
Flynn, 2615, 062 58 8822, meet¬ 
ings third Monday each month 
7.30 pm in the small theatrette, 
Reid TAFE, for System 80, TRS- 
80 etc. 

Canberra NEC Users Group, 

Mai Smith, PO Box 173, Belcon- 
nen 2616, meets first Tuesday 
each month at Main Conference 
Room, CSIRO Headquarters, 
Limestone Avenue at 7.30, (062) 
541614. 

Canberra Osborne Group, c/o 

Geoff Cohen, P.O. Box 136, Kip- 
pax, 2615, 062 54 7608. 

Micsig, Registrar, P.O. Box 446, 
Canberra, 2601. 



Alice Springs Microbee Users 
Group, Douglas Craigie, c/- PO 
Box 3230, Alice Springs 5750. 
Darwin Microbee Users Group 
DBUG, Felino Molina, P.O. Box 
3111, DARWIN, 5794, 089 82 
5613bh, 089 88 1455ah. 

N.T. Computer Club, Ian Diss, 


meets at Wulagi Primary School 
on the first and third Thursday of 
each month at 7.30. Users of all 
machines and other interested 
parties welcome, (089) 27 9208. 
N.T. 80 Computer User Group, 
R T O’Brien, 433 McMillans 


Road, JINGILI, DARWIN, 5792. 
The Microcomputer Assoc, of 
the N.T, Andy Smith, Darwin 
Community College, 

CASUARINA, 5792. 

VZ-200 Users Club, 7 Abbott 
Crescent, Malak, Darwin 5793, 
(089) 272830. 



AACC, Adelaide Atari Com¬ 
puter Club, meets at Gilles 
Street Primary School, City, on 
first Monday (second if first is on 
Public Holiday) of each month. 
Secretary, PO Box 333, Nor¬ 
wood, SA 5067. 

Adelaide Lotus 1-2-3 User 
Group, Paul Wragg, Pannell Kerr 
Foster, GPO Box 1969, Adelaide. 
Adelaide Micro User Group, R. 
G. Stevenson, 36 Sturt Street, 
Adelaide, 5000, for TRS-80 and 
System 80 Users. 

Adelaide Osborne Group, Rus¬ 
sell Barter, The Secretary, 410 
Regency Road, PROSPECT, 
5082. 

Beebnet, BBC and Econet User 
Group P.O. Box 262, KINGS- 
WOOD, 5062, The group intends 
to produce a newsletter on a 
monthly basis. It is interested in 
any software producers or dis¬ 
tributors who would be interested 
in serving the groups market re¬ 
quirements. 

Commodore/Vic Computer 
Users Assoc., Mr Eddie Hann, 
13 Miranda Road, PARALOWIE, 
5108, The SA branch meets 


monthly. 

Compucolor-lntecolor User of 
S.A., P.O. Box 86, Torrensville, 
5031,08 352 3296. 

DEC Personal Computer Spe¬ 
cial Interest Group, see NSW 
entry. 

IBM-PC S.A. Users’ Group, PO 

Box 68, Walkervilie 5081. 

Kaypro User Group, Myles 
Wakeham, 100 Pirie Street, 
Adelaide, 5000, 08 223 6333, 
meetings 1st Tuesday each 
month. 

Microbee Users Group of S.A. 
MUGSA, The Secretary, GPO 
Box 767, Adelaide 5001. 

S.A. Commodore Computers 
U.G., Eddie Hann, The Secretary, 
P.O. Box 427, North Adelaide, 
5006, 258 6367, meetings sec¬ 
ond Tuesday each month, 7.30 at 
Royal Caledonian Hall, 379 King 
William St, Adelaide. 

S.A. Foundation for Computer 
Literacy, Michael Kennett, PO 
Box 210, Norwood 5067, caters 
for children from 6 years (unac¬ 
companied) or 4 years with older 
friend or brother or sister. Special 
emphasis on the needs of hand¬ 


icapped, and educably disabled 
and socially disadvantaged chil¬ 
dren, but ALL children welcome. 
Family participation encouraged, 
phone (08) 51 5474. 

S.A. Peach User Group, Geoff 
Drury, 27 Creslin Tee, Camden 
Park 5038, (08) 352 2555 or 295 
2778 (ah), special interest group 
attached to the SA Microproces¬ 
sor Group which holds separate 
meetings. 

S.A. Microprocessor Group Inc 
SAMG, The Secretary, P.O. Box 
113, Plymton, 5038, 08 278 
7288. 

Sorcerer Users Group of S.A., 

Don Ide, 14 Scott Road, Newton 
5074. 

South Australian Apple Users 
Club, The Secretary, SAAUC, C/- 
The Bookshelf, 169 Pirie Street, 
Adelaide, 5000. 

South East Computer En¬ 
thusiasts’ Group, Glenn Mibus, 
3 Millard St, Mount Gambier 
5290, 087 25 1046, meetings 2nd 
and 4th Tuesday of each month 
from 6.30 at Mt Gambier High 
School Computer Room, for all 
machines and interested parties. 
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COMPUTUS CUJB LIST 


NSW 


Albury-Wodonga Dist Mbee 

U.G., Eric Eulenstein, 202 Kooba 
St, Albury, 2640, 060 25 1601. 
Apple Users Disk Exchange 
Club, Peter Lapic, 45 Malabar 
Street, Canley Vale 2166. 

Apple Users Group, Colin 
Rutherford, P.O. Box 505, 
Bankstown, 2200, meets 6.30 pm 
second Monday of each month 
(Tue after pub. hoi.) at Sydney 
Grammar School, Stanley Street, 
Sydney, 02 520 0926. 

Atari Computer Enthusiasts, 
Tony Reeve, PO Box 4514, Syd¬ 
ney 2001. 

Ausborne, Brian Carney, 477 
4492, P.O. Box C530 Clarence 
Street, Sydney, 2001, meetings 
third Wednesday each month at 
6.30 in the North Shore Council 
Chambers, for Osborne users. 
Ausbug, Stephen Ford, P.O. Box 
62, Londonderry, 2753. 
Australasia ZX80 Users Group, 
Tony Mowbray, 87 Murphys Ave, 
Kieraville, 2500, 042 28 5296, for 
ZX80/81 Microace owners. 
Australasian ZX80 Users News¬ 
letter, 87 Murphys Ave, 
Kieraville, 2500. 

Blue Mountains Microbee Com¬ 
puter Club, Roger Cooper, 047 
58 7238. 

Blue Mountains Computer 
Club, Eric Lindsay or T. Macin- 
doe, C/- P.O. Faulconbridge, 
2776. 

Broken Hill Microbee Users 
Group, Peter Cotter, 533 Radium 
Street, Broken Hill, 080 881621. 
Central Coast Apple Users 
Group, C.W. Lee, 662 The 
Entrance Road, Wamberal 2260, 
meetings first Tuesday each 
month at the Niagara Park Public 
School from 7.30 pm, (043) 84 
3419. 

Central Coast Computer Club, 

Max Maughen, P.O. Box 36, Et- 
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talong Beach, 2257, 043 24 
2711, 1st and 3rd Tuesday every 
month at Applied Technology, 
West Gosford, for all types of 
computer. 

Commodore Users Group, John 
Guidice, G.P.O Box 4721, Syd¬ 
ney, 2001. 

Compucolor Users Group, 

Tony Lee, 52 Cowan Road, St. 
Ives 2075, phone (02) 449 8824. 
Cumberland Computer User 
Group, S. O’Neil, 02 682 3851. 
DEC Personal Computer Spe¬ 
cial Interest Group, Marion 
Rhydderch, DEC Australia, 
Northern Tower, Chatswood 
Plaza, Railway Street, 
Chatswood 2067, 02 412 5252. 
Dubbo and District Microbee 
Users Group, Coralie Taylor, 18 
Cunningham Street, Dubbo 2830, 
meets 4th Wednesday each 
month at 7.30 in the Dubbo High 
School Computer Room. 

A.P.F. Users Group, Norm 
McMahon, 288 Kissing Point 
Road, TURRAMURRA, 2074, 02 
44 2645. 

Hawkesbury Commodore Com¬ 
puter Club, Richard Farrell, 12 
Inverary Drive, Kurmond 2757, 
meets 4th Tuesday . of each 
month at 7.30pm at Neighbour¬ 
hood Centre, West Market Street, 
Richmond. 

Hawkesbury MicroBee Com¬ 
puter Club, Bruce Rennie, 045 
67 7329. 

HP Desktop Computer Users 
Group, Dr. R. W. Harris, CSIRO 
Division of Mineral Physics, PMB 
7, Sutherland 2232, 02 543 3460 
Hunter U. G.- All Microcomput¬ 
ers, Secretary, P.O. Box 39, 
BROADMEADOW NSW, 2298, 
Meets on the second Wednesday 
of each month in Room 308, 
building W, University of Newcas¬ 
tle at 7.45pm. Membership is 
primarily Apple II orientated, but 
anyone with interest in micros 
welcome. 

Illawarra Microbee Computer 
Club, Ronald Read, 49 Beatus 
Street, Unanderra, 2526. 

Illawarra Super 80 Users 
Group, Jim O’Grady, Chairman, 
P.O. Box 1775, Wollongong, 
2500. 

Kaypro Users Group N.S.W., 

Harry Richards, 4/2 Bortfield 
Drive, Chiswick, 2046, 02 713 
1585, meets 2nd Tuesday each 
month at 8.00 pm in the Burwood 
R.S.L. 


Sydney Lotus 1-2-3 User 
Group, Ron Poliak, (02) 29 5316. 
Macarthur Computer Associa¬ 
tion, J Napier, 23 Athel Tree 
Crescent, Bradbury 2560, meets 
first Monday each month at Airds 
High School, Briar Road 
Campbelltown at 7.30 each 
month, all machines are catered 
for, 046 25 2055. 

Macquarie Microbee Users 
Group, Brian Thompson, meet¬ 
ings first Monday each month at 
Denistone East Primary School at 
7.30 pm, 02 85 1659 after hours. 
MEGS (Microcomputer Enthus. 
Group), John Whitlock, P.O. Box 
1309, Chatswood 2067. Meetings 
third Monday each month at rear 
of St. Andrew’s Presbyterian 
Church, 37 Anderson Street, 
Chatswood, (02) 638 1142. 

Mi Computer Club, Norma 
Jackson, P.O Box 21, Waterloo, 
2017, 02 662 8888. 

Microbee Users Club (Broken 
Hill), Peter Cotter, 533 Radium 
Street, Broken Hill 2880, 080 88 
1621. 

Newcastle Microbee Users 
Group, Lee Osman, 12 Cleverton 
Close, Warners Bay 2282, 049 
48 8813. 

Newcastle Microcomputer 
Club, Angus Bliss, PO Box 293, 
Hamilton 2303, meetings 2nd and 
4th Monday each month at room 
G12, Physics Building, Newcastle 
Uni, 049 67 2433. 

N.S.W. Primary School Micro¬ 
bee Users Group, Mr Peter 
Stretton, c/- Hunters Hill Primary 
School Alexandra Street, Hunters 
Hill 2110. 

N.S.W. 6800 Users Group, 27 

Georgina Ave., Keiraville, 2500. 
Northern Beaches Vic User 
Group, E. Tuxford, 161 Barren- 
joey Rd., Newport, 2106, Ph 997 
2467, Community Centre (If 
We’re lucky). 

Northern N.S.W MICC Chapter, 

Alen Hartley, Dundurrabin via 
Dorrigo, 2433, 066 57 8160. 
N.S.W Peach User Club, Daniel 
Soussi, 02 698 8286, weekly 
meetings on Saturday from 2pm 
at ‘Cybernetics Research’ 120- 
122 Lawson St Redfern. 

OSI Users Group, Nigel Bisset, 
02 411 7142. 

Pocket Computer Users Club, 

George Antonijevic, 02 683 4296, 
for those interested in pocket 
computers, whatever the brand. 


Meetings held on the first 
Wednesday of each month at 
7.30pm at the ‘Woodstock’ Com¬ 
munity Centre, Church St. Bur- 
wood. 

Sorcerer Users Group, P.O. 
Box El 62, St James, 2000, meet¬ 
ings 1st Tuesday each month at 
7th Floor Datec House, 220 
George Street, Sydney at 
7.30pm. 

Southern Districts Commodore 
Users Group, Lex Toms, 602 
8691, 3 Lucille Crescent, Casula 
2170, Meetings 1st and 3rd 
Wednesday each month, API Hall 
Currajong Road, Prestons. 
Sutherland Super 80 Group, 
Jim Traeger, 02 525 2018, Super 
80. 

Sydcom 64 (C64 User Group), 

Andrew Farrell, meetings first 
Tuesday of each month at 6.30 
pm above Computerwave, 
George Street, Sydney, 02 99 
2640. 

Sydney Forth Group, Peter Tre- 
geagle, 10 Binda Road, Yowie 
Bay, 2228, 02 524 7490, meets 
2nd Friday of each month at 
7.00pm in the John Goodsell 
Building, UNSW room LG19. 
Sydney MicroBee Users Club, 
Colin Tringham, 92 6408, PO 
C233, Clarence St, Sydney 2000, 
Meetings 3rd Sat each month 1-5 
pm McMahons Point Hall, Blues 
Point Rd North Sydney. 

Sydney Peach User Group, Ben 
Sharif, 261 Northumberland 
Street, Liverpool, 2170, 02 601 
8493. 

Sydney TRS-80 Users Group, 

meetings 2nd, 3rd and 4th Satur¬ 
day of each month at Botany, 
phone (02) 666 4716 bus hours. 
TAG-The Access Group, Bob 
Dolton, PO Box 943, Orange 
2800, for Access and Actrix 
users. 

T. l. Sydney Home Computei 

U. G., P.O. Box 149, Pennanl 
Hills, 2120. 

Wagga Microbee Users Group, 

John Simmons, 47 Undurre 
Drive, Glenfield 2650, 069 31 
1302, meetings 1st and 3rd Tues¬ 
days each month in the Tolland- 
Glenfield Neighbourhood Centre 
at 8.00pm. 

Wizzard User Group, John Mif- 
sod, 150 Bouganville Road, Blac¬ 
kett, 2770, 02 628 0801. 
ZX-Spectrum Users Club, Craic 
Kennedy, P.O. Box 466, Epping 
2121. 




Adventure Club, Christine 
)gden, 37 Samford Road, Leic- 
hardt, Ipswich 4305, for all Ad- 
enture type game players. 
tpple-Q the Brisbane User 
iroup, The Secretary, P.O. Box 
21, SOUTH BRISBANE, 4101, 
las User Group days every third 
>unday of month at Hooper Edu- 
ation Centre, Kuran St. Wavell 
leights. Centre is open from 
[.30am till 4.30pm, members en- 
ouraged to bring Apple along. 
Australian Sirius Users Group, 
\0. Box 204, CHERMSIDE, 
032, 07 350 2611, Looks after 
ie needs of Sirius One and Vic¬ 


tor 9000 computer users. For 
membership form write to above 
address. 

Basic User Group, Chris Lucey, 
Cranium Computers, 34 Lawless 
Street, Blackwater 4717. 

Brisbane Medfly Users Group, 
K.J. Walker, 120 Highgate Street, 
Coopers Plains 4108. 

Brisbane Sinclair (Spectrum) 
Computer Club, V. Lewis, 37 
Samford Road, Leichhardt 
Ipswich 4305, meets third Sun¬ 
day at Everton Park State High 
School, at 2.00, 07 355 7809. 
Brisbane Super 80 Users 
Group, Gary Gatfield, 08 355 
3173. 

Brisbane Youth Computer 
Group, A. Harrison, P.O. Box 
396, Sunnybank, 4109. 

Cairns District Microbee Users 
Group, Chas Eustance, 21 Marr 
Street, Edmonton 4869, (070) 
554531. 

Commodore Computer Users 
Group QLD, Mrs D D Dillan, P.O. 
Box 127, STONES CORNER, 
4120. 

Commodore Users Group, John 
Egan, P.O. Box 274, 
SPRINGWOOD, 4127, 07 287 


2705, Is for owners of Pet/CBM 
and Vic-20 machines. Meetings 
held on the first Tuesday of the 
month at 130 Petrie Terrace, 
Brisbane. 

Computer Owner’s Group, 

Betty Adcock, 42 Lucan Ave, 
Aspley, 4034, 263 4268, 2nd 
Wednesday each month, 7.45 
pm, all kinds of computer are ca¬ 
tered for. 

DEC Personal Computer Spe¬ 
cial Interest Group, see NSW 

entry. 

Gold Coast Microbee User 
Group, Col McLaren, 1-100 Im¬ 
perial Parade, Labrador, 4215, 
075 314610, meetings first Sun¬ 
day each month, 3.00 at the 
Southport High School. 

IREE Microcomputer Interest 
Group, N Wilson, P.O. Box 811, 
ALBION, 4010. 

Mackay Microbee User Group, 

Geoff Gehring, Box 230, Mackay, 
4740,079 42 3214. 

Osborne Users Group of Qld 
Uni, Glen McBride, meetings 2nd 
Thursday each month open to all, 
07 371 4243. 

Superboard Users Group, Ed 

Richardson, 146 York Street, 


NUNDAH, 4012. 

Tandy, Apple, Commodore UG, 

Chris Lucey, 34 Lawless Street, 
Blackwater 4717. 

The Microcomputer Society, 
The Secretary, P.O. Box 580, 
FORTITUDE VALLEY, 4006, 
Meetings are held on the second 
Friday of each month in the Old 
Town Hall, corner Vulture and 
Graham Streets, Sth Brisbane. 
Meetings start at 7.30pm if main 
gate is closed use the back stair¬ 
way. 

Townsville MicroBee User 
Group TMUG, Mannie Van 
Rijswijk, PO Box 5751 M.C., 
Townsville 4810, meetings 7.30 
pm on second and fourth Monday 
each month on the Ground Floor, 
St Margaret Mary’s Secondary 
School, Crowle Street, Hermit 
Park. 

TRS80/System 80 Computer 
Group, Secretary, 16 Laver 
Street, Macgregor 4109, (07) 343 
5771, meets first Sunday each 
month at Lindum Hall, Lindum 
Street, Lindum at 2.00pm. 

ZX 81 Club, P. Carswell, 22 
Braud Street, BUNDABERG, 
4670. 



1802 Users Group, P.O. Box 
6210, AUCKLAND, NEW ZEA¬ 
LAND, For those who own an 
ETI-660 or a COSMAC VIP, you 
can contact the 1802 Users 
Group. Be kind and send them a 


return addressed envelope and 
some International Reply 
Coupon. 

Nelson Vic Users Group, Peter 
Archer, Nelson VIC Users Group, 
C/o P.O. Box 860, Nelson N.Z., 
for Vic and Commodore. 


Wellington Microcomputer 
Soc. Inc, Lindsay Williams, 2 
Pope Street, PIMMERTON, NEW 
ZEALAND. 

ZX81 Club, R Skelton, C/- Har- 
bourside Orchard, WAIUKU NEW 
ZEALAND. 



*DEC Personal Computer Spe¬ 
cial Interest Group, see NSW 

entry. 

Devonport Computer Interest 
Group, John Steveson, R.S.D 
422, SHEFFIELD TASMANIA, 
7306, 004 92 3237. 

Spectravideo Computer Users 
Group, Mr W. P. Decket, 48 
Heather Street, LAUNCESTON, 
7250, 44 4836, Membership to 
the club costs $15 which entitles 
members to a newsletter and to 


discounts on computer equip¬ 
ment. 

Tasbeeb, John Hannon, PO Box 
25, North Hobart 7000, meetings 
first Monday each month at 
Elizabethan Matriculation College 
in D Block at 8pm, 002 34 2704, 
for BBC computers. 

Tasmanian TJ. User Group, Co¬ 
ordinator, 1 Benboyd Court, 
ROKEBY, 7019, 002 29 4009, 
meetings third Sunday of each 
month at University of Tasmania, 


room 373. 

TAS-Micro, Peter Decked, Unit 
1/456 West Tamar Road, RIVER¬ 
SIDE, LAUNCESTON, 7250. 
Tasmanian Commodore Users 
Assoc., Vincent T. Staggard, The 
Secretary, G.P.O. Box 391D, 
Hobart, 7000, 002 72 0295, Com¬ 
modore and others. 

Tasmanian OSI User Group, 
David Tasker, 111 Bass High¬ 
way, WESTBURY, 7303. 
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Apple Users Society of Mel¬ 
bourne, D. Halprin, 03 387 3221, 
PO Box 43, Forest Hill 3131. 

AT Microcomputer Club, Grant 
Forest, 03 8792257ah, 03 699 
2888 bh. This club has been 
formed for people interested in 
the Applied Technology DGOS 
Z80. 

Atari User Groups Melbourne, 

Kelvin Eldridge, P.O. Box 173, 
3073. 

Australian Forth Interest 
Group, Tony Latermore, P.O. 
Box 704, SALE, 3850, 051 44 
2011 . 

Australian North Star Users 
Assoc., P.O. Box 194, WAN- 
GARATTA, 3677. 

Ballarat Computer Users 
Group, Publicity Officer: John 
Preston, 053 31 4363. 

Billanook Computer Forum, Mr 
Maurie Canterbury, Cardigan 
Road, Mooroolbark 3138, (03) 
725 5388. 

BUG 80 (Burwood Users 
Group), P.O. Box 46, 
BLACKBURN SOUTH, 3130. 
Chip 8, 6800, 1802 User Group, 

Frank Rees, 27 King Street, 
BOORT, 3537. 

Compucolor Users Group, L 

Ferguson, 12 Morphett Avenue, 
ASCOT, 3342. 


DEC Personal Computer Spe¬ 
cial Interest Group, see NSW 
entry. 

Forth Interest Group, Lance 
Collins, P.O. Box 103, CAMBER¬ 
WELL, 3124, (03) 29 2600, 
Meets on the first Friday of the 
month at the Bowen Street 
Neighbourhood Centre, 102 
Bowen Street, Camberwell 
South. 

Geelong Commodore Com¬ 
puter Club, D Gerrard, 15 
Jacaranda Place, Belmont 3216, 
(03) 44 2863. 

Geelong Computer Club, Peter 
McKeon, P.O. Box 93, 
GEELONG, 3220. 

IBM & Columbia Computer 
Users Club, Giles Bray, 22/11 
Auburn Grove, Hawthorn East, 
3123, 82 7632, 2nd Tuesday 
each month, 7.30 at the Victorian 
College of Pharmacy. 

Kaypro Users Group of Vic¬ 
toria, George Kunz, PO Box 159, 
Forest Hill 3131, 03 857 5462, 
meetings fourth Sunday each 
month at Burwood State College 
Community Resources Centre at 
2 pm. 

KAOS (Ohio Scientific), David 
Anear, 49 Millewa Crescent, 
DALLAS, 3047. 

Latrobe Valley Colour Com¬ 
puter U.G., George Francis, 31 
Donald Street, Morwell, 3840, 22 
1389, for TRS-80 & MCI 0 users. 
Melbourne Atari Computer En¬ 
thusiast, PO Box 133, Mulgrave 
North 3170, meetings held on 
first Sunday of each month at 
11.40am at Monash University 
Rotunda. 

Melbourne Lotus 1-2-3 Users 


Group, Robert Taylor, (03) 267 
4800. 

Melbourne MicroBee Users 
Group, Pres Grant Forrest, PO 
Box 157, Nunawading 3131, 
meetings 7.00 pm second 
Wednesday each month at VIC 
State College-Burwood Campus, 
221 Burwood Highway, Burwood. 
Melbourne PC User Group, 
Stephen Wagen or Christopher 
Leptos, c/o Pannell Kerr Foster, 
14th Floor, 500 Bourke Street, 
Melbourne 3000, phone (BH) (03) 
605 2222. 

Melbourne Peach Users Group 
(MPUG), P.O. Box 191, 
Rosanna, 3084, 03 434 2541. 
Melbourne Super 80 Users 
Group, Hon. Sec. Victor 
Shuttleworth, 03 723 2713. 
MICOM, Microcomputer Club of 
Melb., P.O. Box 60, CANTER¬ 
BURY, 3126. 

National Mutual Micro Users 
Group, R Prewett, NMLA, PO 
Box 2830AA, GPO Melbourne 
3001, for National Mutual staff. 
National Sinclair User Group, 
P.O. box 148, GLEN WAVER- 
LEY, 3150. 

National ZX80 Users Club, 24 

Peel Street, COLLINGWOOD, 
3066. 

NEC Portable User’s Group, D 

Green, meetings second 
Wednesday of each month at 
Myers Computer Centre 
Lonsdale Street at 7.30 pm, (03) 
611 3380. 

Northn/Westn Sub. Comp. 
Users Group, John King (Secret¬ 
ary), 284 Union Road, MOONEE 
PONDS, 3039, 03 338 9304, 
Contact CP/M Data Systems. 


WA 

Agriculture Users Group, c/- Mr 

R Fenwick, Dept, of Agriculture, 
Albany 6330. For farmers and the 
agriculture service industries. 

CU WEST WA Compucolor/ln- 
tecolor U.G, John Newman, 8 
Hillcrest Drive, DARLINGTON, 
6070. 

DEC Personal Computer Spe¬ 
cial Interest Group, see NSW 
entry. 
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KAOS-W.A., Gerry Ligtermoet, 09 
450 5081, 39 Cloister Ave, MAN¬ 
NING, 6152, for Ohio Scientific 
Users. 

OSWEST-Osborne Users 
Group of W.A., Mai Ferguson, 
PO Box 199, Mundaring 6554, 
meets first and third Wednesday 
at the Palmyra Recreation Centre 
and the Subiaco Exhibition Hall 
respectively from 7.30, 09 295 
1449, for Osborne and other 
interested computer users. 
Kaypro User Group of WA, 
Ainslie Sharpe, PO Box 91, 
Claremont 6010, 09 384 5511, 
meetings 2nd and 4th Mondays 


of each month in the Canteen of 
the Department of Agriculture, 
Jarrah Road, South Perth. 

Perth 80 Users Group, C Pow¬ 
ell, 09 457 6849, for System 80 
and TRS 80 Users. 

Perth Hitachi Peach Club, The 
Secretary, 1 Charf Court, River¬ 
ton, 6155, 09 367 5880, for 
Hitachi Peach & 6809s. 

Sorcerer Computer Users of 
Aust., The Secretary, 90 King 
George Street, PERTH SOUTH, 
6151,09 367 6351. 

Super 80 Users Group Perth, 
Garry Black, 19 Bendigo Way, 
CITY BEACH, 6015, 09 385 


Peninsula Computer Club, 
George Thompson, 3 Pattersor 
Street, Bonbeach, 3196, 772 
2674, 2nd Tuesday each month 
at Chisholm College, Frankston 
many types of computers are ca 
tered for. 

Sharp Computer Users Associ¬ 
ation, , The President, 7 Faye 
Street, East Burwood 3151. 
Spectravideo Users Group 
Mitch Raitt, Fernhill, Tindal’s 
Road, Warrandyte 3113, (03) 84^ 
3485. 

Sorcerer Computer Users (Au 
stralia), Secretary, G.P.O. Bo) 
2402, MELBOURNE, 3001. 
TI-99/4A Users Group Mel 
bourne, Wayne Woriadge, j2C 
Ashburn Grove, Ashburton, 03 2i 
1832. 

The Motorola User Group Spc 
(MUGS), Clive Allan, 11 Haro* 
Avenue, NUNAWADING, 3131 
03 878 1298, Group is interestee 
in 6800/02/09 based computers 
particularly if running Flex al 
though this is not a prerequisite 
to join. 

Vic. Assoc, of Compute 
Educators, Arthur Totrall, P.O 
Box 69, WHITTLESEA, 3757. 
Victorian VZ200 User Grcjup 
Luigi Chiodo, 24 Don St., Reser 
voir, 3073, 03 460 3770. 
Victorian Wizzard Users Group 
Barry Klein, 24 Russell Street 
Bulleen3105. 

Yarrawonga Computer Use 
Group, Chris Younger, 057| 4- 
3859, 10 Witt Street, Yar 

rawonga, 3730, for all machines. 
ZX81 Software Exchange, Cl 
Chips Taens, 5 Muir Street, MT 
WAVERLEY, 3149. 


8813. 

The W. A. Atari Computer Club 

Mr Alf Gaebier (Secretary), P.C 
Box 7169, Cloisters Square 
PERTH, 6000. 

W.A. Microbee Club, Mik< 
.Oborn, 09 447 5366. 

Vic-Ups, G. Padfield, 09 45 
4629. 

W.A. Wizzard Users Grmp 
John REid, 13 Wenlock Roac 
Wattleup 6166, 09 410 2359. 
W.A. ZX Users Group, Ph 
Taylor, 09 328 4111, (bh). 

WA University Computer Club 
2nd Floor, University of W4 
Guild Building, 09 386 1455. 



UNLEASH THE MUSIC 
IN YOUR COMMODORE 64 



Music Software, Inc. 




UNLEASH 
THE MUSIC 


EDIBLE MUSICAL KEYBOARD 


Now with no musical experience you can unleash the music that’s hidden deep within your computer. This unique keyboard comes complete with its own software 
that will get you playing right away. It even includes two music books, one for the beginner, and one for the more advanced musician. 


KAWASAKI 

SYNTHESISER 


KAWASAKI 
RHYTHM ROCKER 


This transforms your computer into 
a programmable synthesiser and 
sound processor. Use the 
polyphonic keyboard and preset 
sounds to create your own music. 
Unique three-track recording 
capabilities to produce an unlimited 
number of instrument sounds and 
special effects. 


©ziScfl 


AUSTRALIAN DISTRIBUTORS. 
( 02 ) 211 - 126 & 


MUSIC 

PROCESSOR 


TUNE TRIVIA 


COMPUTER 
SONG ALBUMS 


Create space sounds and 
hi-resolution colour graphics to the 
beat of electronic rhythms. This 
creative Music/Video synthesiser 
offers a variety of percussion and 
synthesiser sounds that can be laid 
down on top of pre-programmed 
bass lines. 


Create, edit, record, play and 
compose your own musical 
arrangements. Use your joystick to 
change any of the 99 preset 
instrument and special effect 
sounds. Full music editor allows 
you to create new music or change 
one of the 16 pre-recorded tunes. 
See visual musical notation on 
the screen. Music Processor is 
compatible with the entire 
computer song album series. 


Challenge yourself and your 
friends to music trivia from an 
almost infinite number of songs and 
questions. Four fascinating games 
in one, add your own tunes and 
trivia questions, try to stump your 
friends. Tune Trivia comes com¬ 
plete with superstar songbook and 
full documentation. 


Listen to the hits of Michael 
Jackson, Willie Nelson, Denise 
Williams, The Eurythmics, while 
you control computer generated a 

instruments and special effects. A 

Every musical arrangement comes : ■ 
complete with bass, rhythm, 
melody and harmony. Computer ; r 
Song Albums are also compatible 
with the music video kit soon to 
be released. 


FUTURE 1984 RELEASES INCLUDE: 

Music Video Kit — 

Make your own music videos with this powerful graphics processor. Paint a background scene, then 
syncronize your masterpiece to your music. 

3001 Sound Odyssey - 

Travel through a complete tutorial on musical synthesis. Learn how subtle change in A.D.S.R., 
waveforms, ring modulation and filters work together, then create your own music. 


AVAILABLE AT ALL GOOD COMPUTER STORES ... 




